タイトル : 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 |