印字位置を常に固定で印刷したい


じゃいぼ  2007-12-06 01:06:56  No: 138300

VS2005(VB)のまったく初心者です。
  Private Sub BTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Pageset.Click, BTN_Prevew.Click, BTN_Print.Click
    PrintDocument1.DefaultPageSettings.Margins = New printing.Margins(0, 0, 0, 0)
    PrintPreviewDialog1.Size = New Size(800, 600)
    PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0
    PrintPreviewDialog1.ShowDialog()
  End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim EG As Graphics = e.Graphics
    '長さの単位をミリメートルにする
    EG.PageUnit = GraphicsUnit.Millimeter
    Dim X As Double = 20
    Dim Y As Double = 20
    EG.DrawRectangle(New Pen(Color.Black, 0.2) .X, .Y, .20, .20)

End Sub
上記のプログラムは余白の設定を0にして上左から2cmの位置に2cmの正方形
を描いています。しかしながらプリンタによって余白の設定が違うため
実際はちがった位置に印字されてしまいます。どのプリンタでも常に
端から2cmの位置に印字できるようにしたいのです。余白の取得ができれば
なんとかなるのですが方法がわかりません
どなたか教えて下さいお願いします。


シー  2007-12-06 01:35:46  No: 138301

Googleで「プリンタ 余白 vb2005」で検索したら色々出てきましたがどうでしょうか?

リンクを貼って良いのかよくわからないので検索してみてください。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加