VB6.0SP6,XPsp2です

Printで白抜き文字を印字したいのです（黒い四角形の中に白い文字を印字）

以前の環境（VB5.0,NT4.0,モノクロプリンタ）では以下のようにできたのです
が、プリンタの機種が変わったからなのかできなくなりました。
（文字の色は黒のまま反転してくれません）

with printer
.ColorMode = vbPRCMColor
.drawmode=13
.Print "あ";
.DrawMode = vbXorPen    'XORで反転させる
.FillColor = vbBlack
.Line -Step(-.TextWidth("あ"), .TextHeight("あ")), vbBlack, BF
end with

Colormodeをモノクロにしてもdrawmodeを変えても駄目でした。いい方法ないでしょうか
よろしくお願いします

Microsoft XPS Document Writer、某カラープリンタ共に同じ結果でした

> with printer
> .ColorMode = vbPRCMColor
> .drawmode=13
> .Print "あ";
> .DrawMode = vbXorPen    'XORで反転させる
> .FillColor = vbBlack
> .Line -Step(-.TextWidth("あ"), .TextHeight("あ")), vbBlack, BF
> end with

文字を先に描いてから黒い四角形を描けば、中の文字も
塗りつぶさるのでは。

> .Line -Step(-.TextWidth("あ"), .TextHeight("あ")), vbBlack, BF
ここって、「vbBlack」ではなく、「vbWhite」なのでは・・・
白（１）地に黒（０）で描かれているところに、黒（０）でXORをしても、
白（１）は白（１）のままですし、黒（０）は黒（０）のままでは・・・

大吉末吉さん、花ちゃんさん、ありがとうございます

> > .Line -Step(-.TextWidth("あ"), .TextHeight("あ")), vbBlack, BF
> ここって、「vbBlack」ではなく、「vbWhite」なのでは・・・
vbwhiteにしたところ、文字も四角形も白く見えなくなってしまいました。

通常の.Drawmodeで黒四角形の上に白い文字をprintできれば良いのですが、
文字の周りの色が消えてしまい文字も四角も白くなり見えません。

前のプリンタでは.Colormodeはモノクロ指定でしたが、問題なく白抜き文字の黒四角形になっていました

当方のプリンタ特有の問題では、という気もしてきました。
黒文字印刷後、白四角形でXORするのが一般的な方法なのでしょうか、
他の手法ご存知の方、よろしければ教えてください

実際に使用しているコードはどういうコードなんでしょう？


> vbwhiteにしたところ、文字も四角形も白く見えなくなってしまいました。
> （文字の色は黒のまま反転してくれません）

黒文字（０）に黒（０）で処理すると黒（０）のまま
白地（１）に黒（０）で処理すると白（１）のまま
黒文字（０）に白（１）で処理すると白（１）になる
白地（１）に白（１）で処理すると白（１）のまま

・・・コレって、「XOR」では無く「OR」の動作ですよね・・・


> 黒文字印刷後、白四角形でXORするのが一般的な方法なのでしょうか、

まさか、「そのプリンタがXORをサポートしていない」なんて事は無いですよね・・・

> 実際に使用しているコードはどういうコードなんでしょう？
簡単に書き直します。
    Printer.DrawMode = vbCopyPen
    Printer.CurrentX = 0
    Printer.CurrentY = 0
    Printer.ForeColor = vbBlack
    Printer.Print "あ"
    Printer.DrawMode = vbXorPen
    Printer.Line (0, 0)-(100, 100), vbWhite, BF

結果は白四角形で文字が塗りつぶされて何も見えなくなりました。
.Colormodeはモノクロでもカラーでも同じでした。



最初に投稿したコードでは、構文誤りがありましたが、プリンタによって
黒四角形に白文字　だったり　グレー四角形に黒文字　だったりしていました。
プリンタドライバによるのではと今は勝手に考えております

実際のコードは、これとは異なりますよね。
Print メソッドは、With ステートメントを利用できなかったはずですし…。

どこかで、単純なミスをしているような気がします。


> .drawmode=13
> .DrawMode = vbXorPen    'XORで反転させる
定数だったり、マジックナンバーだったりしているのは何故? (^^;


> 以前の環境（VB5.0,NT4.0,モノクロプリンタ）では以下のようにできたのですが、
プリンタの問題ではなく、元のコードが間違っているような気がします。

提示されたプログラムでは、プリンタどころか画面描画でさえ、
白抜き(黒背景に白文字)にはなりませんでしたし。


Option Explicit

'元のコード(Xor描画)を活かした例
Private Sub Command1_Click()
    Cls
    BackColor = vbWhite

    DrawMode = vbCopyPen  '13
    Print "あ";
    DrawMode = vbXorPen
    FillColor = vbBlack

    'こっちだとNG(どりさん自身のコード)
    Line -Step(-TextWidth("あ"), TextHeight("あ")), vbBlack, BF

    'こっちならOK(大吉末吉さんの修正案)
    'Line -Step(-TextWidth("あ"), TextHeight("あ")), vbWhite, BF
End Sub

'花ちゃんさんの修正案(文字を後描き)
Private Sub Command2_Click()
    Cls

    DrawMode = vbCopyPen
    Line (TextWidth("あ"), TextHeight("あ"))-(0, 0), vbBlack, BF
    FontTransparent = True
    ForeColor = vbWhite
    Print "あ";
End Sub

魔界の仮面弁士さん、ありがとうございます

        Printer.ColorMode = vbPRCMColor
        Printer.DrawMode = vbCopyPen
        Printer.Line (0, 0)-(100, 100), vbBlack, BF

        Printer.CurrentX = 0
        Printer.CurrentY = 0
        Printer.ForeColor = vbWhite
        Printer.FontTransparent = True
        Printer.Print "あ"
        Printer.EndDoc

このコードではうまくいきませんでした（文字部分が四角く抜けてしまう）
が、.Colormodeの行をコメントにするとうまくいきました。
カラー印刷でないと困るのですが、別案考えてみます。

恥ずかしながら.FontTransparentは知りませんでした。とても参考になりました

> 恥ずかしながら.FontTransparentは知りませんでした。

プリンタで FontTransparent を有効にする場合は、下記を参照してください。
http://support.microsoft.com/kb/412851/ja