フォームとその上にあるＭＳＦｌｅｘグリッドのハードコピー方法

質問

フォームとそのフォーム上にあるＭＳＦｌｅｘグリッドの
ハードコピーを、やはりそのフォーム上に設けたコマンド
ボタンのクリック一発で行えるようにしたいのです。

下記の構文で、PrintFormメソッドを使ってやってみましたが、
ＭＳＦｌｅｘグリッドの部分が真っ黒に印刷されてしまいます。

With Printer
.PaperSize = vbPRPSA4
.Orientation = vbPRORLandscape
End With

Form_Ichiran.PrintForm

どなたかご存知の方、よろしくお願いします。

回答No.1

TAGOSAKU7 · ベストアンサー

どもども田吾作７です。

どうやらOCXのコントロール類はPrintFormの対象になってくれないようですね。
実験して初めて知りました。（-ロ-;グハッ
ですので、フォームのデバイスコンテキストを使用したら、うまくいったみたいなので、ご報告いたします。

With Me
'フォームのスケールモードをピクセルにします。
.ScaleMode = vbPixels
'Printerオブジェクトのスケールをピクセルにします。
Printer.ScaleMode = vbPixels

'Printerオブジェクトの出力を促します。
Printer.Print
'Printerオブジェクトへフォームを描画します。
Call StretchBlt(Printer.hdc, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight, .hdc, 0, 0, .ScaleWidth, .ScaleHeight, vbSrcCopy)
'Printer オブジェクトに送っているドキュメントを終了し、印刷デバイスやスプーラに出力処理の制御を渡します。
Printer.EndDoc

End With

ってな感じでしょうか？
あらかじめフォームをピクセルにしておいたら一行省略できると思います。
StretchBltで、Printオブジェクトのサイズに、フォームを描画しているので、あらかじめPrinterオブジェクトのWidth/Heightを設定してあげると、間延びした印刷にはならないと思います。

でわでわ

回答No.2

TAGOSAKU7

再度、田吾作７です。

返事が無いところを見ると、解決したのかな？
それともわからなくて困ってるのかな？
もしそうだとしたら、遠慮なく質問してくださいね。

お礼

お礼が大変に遅れてしまいました。
本当に助かりました。どうもありがとうございます。
客先に１０日以上も詰めて、火を噴いたプロジェクトの
納品作業をやっており、まったく時間がありませんでした。

おかげさまで今日の夜には帰れそうです。
どうもありがとうございました。
また、なにかあった時にはよろしく御教授ください。