投稿日 | : 2002/11/01(Fri) 08:23 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re: VB Printer オブジェクト |
参考までに…
描画関係のメソッド・プロパティはPrinterオブジェクトとPictureBoxでかなり共通してますので、
Formにプレビュー用PictureBoxを配置し、
Private Sub PrintText(obj As Object, X As Single, Y As Single, strText As String)
Dim lngTextLen As Long
obj.ScaleMode = vbPoints
obj.CurrentX = X + 2
obj.CurrentY = Y + 2
obj.Font.Name = "MS ゴシック"
obj.Font.Size = 12
lngTextLen = LenB(StrConv(strText, vbFromUnicode)) * 6
obj.Print strText
obj.Line (X, Y)-(X + lngTextLen + 4, Y + 12 + 4), vbBlack, B
End Sub
みたいな関数を作っておき、
If mblnPrintFlg = True Then
'印刷
Call PrintText(Printer , 10 , 10 , "あいうえお")
Else
'プレビュー
Call PrintText(Picture1 , 10 , 10 , "あいうえお")
End If
のように使えば、印刷デザイン時に紙の消費を抑えられます。