> 画面のハードコピーを印刷するPGを作成していますが
> 白紙しか印刷できません
> dc = GetDC(0)
> pdc = Printer.hDC
> StartDoc pdc, docInfo
> StartPage pdc
> rc = BitBlt(pdc, 0,0, 500, 500, dc, 0, 0, vbSrcCopy)
> ここのrcが０となってしまいます
> EndPage pdc
> EndDoc pdc
うちではうまく行くますよ。
VBのVerは？OSは？
dc,pdcはちゃんと取れてる？
docInfoは何を設定してる？
このコードに間に別のコードが入ってない？(特にPrinterオブジェクトを
参照するコード)
あとは、StartDocいかを
Printer.Print = " "
rc = BitBlt(pdc, 0,0, 500, 500, dc, 0, 0, SRCCOPY)
Call Printer.EndDoc
としてみるとか。
プリンタドライバを最新にしてむるとか。
|