tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル教えてください。 バックカラー
記事No14622
投稿日: 2010/04/12(Mon) 21:10
投稿者MAKI
Printer.Print "あ"
このようなコマンドで文字を印刷する時、フォントの部分の
バックカラーはどうやって指定するのでしょうか?
初歩的なことだと思うのですがよろしくお願いします。

[ツリー表示へ]
タイトルRe: 教えてください。 バックカラー
記事No14623
投稿日: 2010/04/12(Mon) 21:49
投稿者花ちゃん
> Printer.Print "あ"
> このようなコマンドで文字を印刷する時、フォントの部分の
> バックカラーはどうやって指定するのでしょうか?
> 初歩的なことだと思うのですがよろしくお願いします。

http://www.hanatyan.sakura.ne.jp/hazimeni.htm

http://hanatyan.sakura.ne.jp/patio/read.cgi?no=168

[ツリー表示へ]
タイトルRe^2: 教えてください。 バックカラー
記事No14624
投稿日: 2010/04/12(Mon) 22:15
投稿者MAKI
ありがとうございます。

先ほどからこのレス見つけ試していたんですが・・
もう一度やってみます。
ありがとうございました。

[ツリー表示へ]
タイトルRe^3: 印刷時の文字のバックカラー
記事No14625
投稿日: 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

[ツリー表示へ]
タイトルRe^4: 印刷時の文字のバックカラー
記事No14630
投稿日: 2010/04/14(Wed) 09:22
投稿者MAKI
どうも申し訳ないです。
ご親切にありがとうございます、試してみます。

[ツリー表示へ]
タイトル解決できました。
記事No14631
投稿日: 2010/04/14(Wed) 10:02
投稿者MAKI
ありがとうございました。

試してみた結果、
Printer.PrintQuality = -2     '   低品位印刷

常にドラフト印刷をしていたのですが、念の為と思い
このコマンドを取り去るとバックカラーが有効になりました。
この低品位印刷の指示をすると、無視されるようで、
このコマンドをなくす事で解決できました。

ありがとうございました。

[ツリー表示へ]