３．網掛け文字を印字

１．網掛け文字を印字・印刷する ２．白抜き文字を印刷する ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API： その他　： 　　　　：

１．網掛け文字を印字・印刷する(004)　　2002.04.17　　 修1 2006.12.28

Option Explicit Private Sub sAmikakePrint(Mystr As String, X As Single, Y As Single) 　 '--- VB5.0 で文字の背景が透明にならない場合 -------- 　 'VB6.0 では必要ありません、又、逆に文字を印刷してから網掛けを 　 '印刷するならできますが、カラーの場合や塗潰しの場合は不可です。 　 '下記の5行を各ページの先頭に記入して下さい。 　 '詳しくは、下記、VB5.0 における印刷関連の制限事項および注意点 を参照 　 'http://support.microsoft.com/default.aspx?scid=kb;ja;JP411269 　　Printer.FontTransparent = False 　　Printer.Print " " 　　Printer.CurrentX = 0 　　Printer.CurrentY = 0 　　Printer.FontTransparent = True 　　'--------------------------------------------------- 　　Dim Icount　　As Single 　　Dim Jcount　　As Single 　　Dim sngHeight As Single 　　Dim sngWidth　As Single 　　Printer.ScaleMode = vbCharacters　　　　'キャラクター単位で統一 　　Printer.DrawWidth = 2　　　　　　　　　 '点の大きさ設定1にすると薄い色 　　sngWidth = Printer.TextWidth(Mystr)　　 '文字列の幅を取得 　　sngHeight = Printer.TextHeight(Mystr)　 '文字列の高さを取得 　　For Icount = X To X + sngWidth Step 0.2 　　　　For Jcount = Y To Y + sngHeight Step 0.1 　　　　　　Printer.PSet (Icount, Jcount), QBColor(0)　'ドットを印字 　　　　Next Jcount 　　Next Icount 　　Printer.CurrentX = X　　　　　　　　　　'座標の設定 　　Printer.CurrentY = Y 　　Printer.Print Mystr　　　　　　　　　　 '設定文字列を印字 　　Printer.EndDoc End Sub Private Sub Command1_Click() 　 Printer.PaperSize = vbPRPSA4 　 'Printer.Orientation = vbPRORLandscape 　 Printer.Orientation = vbPRORPortrait 　 Printer.FontSize = 36 　 '10桁目の3行目に印字 　 Call sAmikakePrint("VBレスキュー(花ちゃん)", 10, 3) 　 Printer.EndDoc End Sub 　 下記のような感じに印刷されます。(印刷の場合は印刷密度が違うので、実際はもっときれいに印刷されます。) 　 Step 0.2　Step 0.1　は点の表示密度で、キャラクター (水平 = 1 単位あたり240 twip、垂直 = 1 単位あたり 120 twip)単位での表示なので。

２．白抜き文字を印刷する

Private Sub Command3_Click() 　　Printer.FontSize = 24 　　Printer.FontBold = True 　　Printer.DrawMode = vbCopyPen 　　Printer.Line (Printer.TextWidth("VBレスキュー(花ちゃん)"), Printer.TextHeight("あ"))-(0, 0), vbRed, BF 　　FontTransparent = True 　　Printer.ForeColor = vbWhite 　　Printer.Print "VBレスキュー(花ちゃん)"; 　　Printer.EndDoc End Sub 　　下記のような感じに印刷されます。 　 文字を後から印刷するのがミソです。 下記の一連の書き込みも参考にして下さい。 白抜き文字を印刷したい

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

網掛け文字を印刷　装飾文字を印刷　文字を網掛けで印刷　網掛け　印刷　印字　文字の背景 白抜き文字を印刷する　色抜き文字を印字する　背景色と前景色を指定して印刷する 装飾文字を印刷する