投稿日 | : 2004/09/01(Wed) 11:54 |
投稿者 | : がちまやー |
URL | : |
タイトル | : サンプル(233)で、印字データが増えると改頁してしまいます。 |
初めて投稿させて頂きます。
よろしくお願いします。
サンプルプログラム「文字列を角度及び扁平率を指定して印字(233)」で印字すると、データがある
一定量を超えると、自動的に改頁してしまいます。一枚の用紙に印刷したいのですが、対処法を教え
てください。
VB6+Win2000の環境です。
下記プログラムを実行すると、半分を超えたところで2ページ目に印字します。
Command1_Click以外は変更していません。
Private Sub Command1_Click()
Dim YP As Single, XP As Single
For YP = 30 To 240 Step 10
For XP = 10 To 160 Step 25
Call sOriginalFontPrint(22, "MS ゴシック", 0, False, XP, YP, 50, "12345")
Next XP
Next YP
Printer.EndDoc
End Sub