VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/11/01(Fri) 08:23 |
| 投稿者 | ： Say |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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 = "ＭＳ ゴシック"
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
のように使えば、印刷デザイン時に紙の消費を抑えられます。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）