tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル PrintFormへの用紙設定
投稿日: 2015/12/23(Wed) 12:16
投稿者たつや
VB6.0で作成した住所録(機能:登録、修正、はがきへの印刷)プログラムを
当サイト、MSDNを参考にしながらVB2015版に修正・テストしております。

テスト環境:Windows 8.1 / VB2015 / Framework 4.5 / 対象の CPU:x64

行き詰ってしまい、対処について、ご存じの方おられましたら
ご教示お願い致します。

★これ以降、当サイトの確認できませんので明日以降に確認させて頂く
★予定です。

よろしくお願いします。


<内容>
フォームイメージをはがきへの印刷時、ページ設定ダイアログにて
"はがき"にしてから、印刷プレビューを表示させると、どうみても
大きさが「はがき」ではなく、A4にみえます。
プリンタへは「はがき」をセットし、印刷するとA4に印刷されている
ようでズレて印刷されます。
ページ設定ダイアログの用紙:はがき が印刷プレビューに渡ってない
感じです。

    Public pf As New PrintForm
    Private printerPageSetting As New System.Drawing.Printing.PageSettings
    Private Sub 印刷ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 印刷ToolStripMenuItem.Click
        With printerPageSetting.Margins
            .Left = 0
            .Top = 0
            .Right = 0
            .Bottom = 0
        End With
        PageSetupDialog1.PageSettings = printerPageSetting
        If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MenuStrip1.Visible = False
            pf.Form = Me
            MsgBox("printer=" & FrmKYK.SetPrinterName)
            pf.PrinterSettings.PrinterName = FrmKYK.SetPrinterName
            pf.PrintAction = Printing.PrintAction.PrintToPreview
            pf.Print()
            MenuStrip1.Visible = True
        End If
    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。