タイトル | : Re^3: 印刷時の文字のバックカラー |
記事No | : 14625 |
投稿日 | : 2010/04/13(Tue) 07:24 |
投稿者 | : 花ちゃん |
> 先ほどからこのレス見つけ試していたんですが・・ > もう一度やってみます。
注意事項を読んでいるのなら環境等を記入するようにして下さい。 この上にも、環境等が書かれていなかったり、速やかに返信されない質問は、 ここのルールを読んでいないと見なされ、レスが付きません。 と書いていますよね。
VB のバージョン、サービスパックはどうなっていますか?
一度下記を試して見て下さい。 (Windows Vista VB6.0(SP6) EPSON PM-A840)
Private Sub Command1_Click() Dim H As Single, W As Single Printer.ScaleMode = vbTwips H = Printer.TextHeight("あ") W = Printer.TextWidth("あ") Printer.Line (W, H)-(0, 0), vbRed, BF Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.ForeColor = vbGreen Printer.Print "あ" Printer.Line (Printer.TextWidth("あいう"), H * 1.5)-(0, H * 2.5), vbBlue, BF Printer.ForeColor = vbWhite Printer.CurrentX = 0 Printer.CurrentY = H * 1.5 Printer.Print "あいう" Printer.EndDoc End Sub
|