VB6.0で印刷プレビューを行うには？ (ID:88569)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 印刷に、「Printer.Print」などを使っているなら、プレビューには 「Form2.Print」や「Picture1.Print」などを使ってみては如何でしょう。 たとえば、印刷ロジック部分を Public Sub Draw(ByVal Campus As Object) If Not TypeOf Campas Is Printer Then Campas.Cls End If '印刷処理 Campas.Print "データ" Campas.Line (0, 0)-(1000, 1000) If TypeOf Campas Is Printer Then Campas.EndDoc End If End Sub のようにしておけば、印刷時には Draw Printer プレビュー時には Draw Picture1 のように記述する事ができます。