VB.netで印刷

プリンターにA4サイズより5mm内側に四角形を書いて印刷したいのですが
ずれてしまいます。おそらく余白の設定ではないかとおもうのですが
用紙を横向き、余白０,指定はどう指定すればよいでしょうか
あるいは、参考になるサイトをお教えください。

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim f As New Font("ＭＳ 明朝", 64, FontStyle.Bold)

e.Graphics.PageUnit = GraphicsUnit.Millimeter
e.Graphics.DrawRectangle(New Pen(Color.Red), 5, 5, 287, 200)

End Sub

No.2 ベストアンサー 回答者： vbhanatyan 回答日時： 2012/01/21 08:35

>用紙を横向き、余白０,指定はどう指定すればよいでしょうか

>あるいは、参考になるサイトをお教えください。

印刷関係は、けっこう、バージョンによって違いがありますので、バージョンを書くようにして
下さい。(VB.NET と書くと VB.NET 2002/VB.NET 2003 が該当しますが)
※.NET 製品ですが、VB2005 以降は製品名に“.NET”の名を冠さないようになっています。

プリンター固有の余白の取得は、VB2005 からは簡単になっていますがそれ以前のバージョンでは
Win32 API を使って取得する事になります。
又、プログラムで直接位置を指定する方法とページ設定ダイアログを使って設定する方法があります。

この回答へのお礼

ありがとうございました。
参考になりました。

お礼日時：2012/01/23 16:26

No.1 回答者： tsukasa-12r 回答日時： 2012/01/21 00:50

他にもやり方があるのかもしれませんが、とりあえず、PrintDocument 作成時に

Dim pd As New System.Drawing.Printing.PrintDocument
pd.DefaultPageSettings.Landscape = True

のようにすると横向きにできると思います。

この回答へのお礼

ありがとうございました。横向きはうまくいきました。

お礼日時：2012/01/23 16:26