投稿者 大池  (社会人) 投稿日時 2011/9/24 10:18:16
いつもお教えを乞うばかりで恐縮です。
XPでVB2008を勉強しています。
厚かましいお願いですが、プリンター(Canon MP600)の設定について2点お教えください。

1.余白の変更について
プリンター付属のダイアログで余白(3mm)を設定し、これをプログラム上で変更(余白なし)するために次のようにしたのですが、反映されません。これはどのようにすればいいのでしょうか?

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
         
    Dim msg As String = "余白のテスト"
        Dim myFont As Font = New Font("MS ゴシック", 14, FontStyle.Bold)
        Dim myBrush As Brush = Brushes.Brown

        Dim g As Graphics = e.Graphics
        g.DrawString(msg, myFont, myBrush, 0, 0)
        e.HasMorePages = False

End Sub

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click

        PrintDocument1.DefaultPageSettings.Margins = New Printing.Margins(0, 0, 0, 0)
        PrintDocument1.Print()

End Sub

2 両面印刷の解除
大変重宝な機能なんですが、これをプログラムで解除するにはどのようにすればいいのでしょうか?

以上よろしくお願いいたします。