初めて投稿させて頂きます。
よろしくお願いします。

サンプルプログラム「文字列を角度及び扁平率を指定して印字(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, "ＭＳ ゴシック", 0, False, XP, YP, 50, "12345")
        Next XP
    Next YP
    Printer.EndDoc
End Sub

>     '取得したハンドルを開放（システムリソースを開放する）
>     DeleteObject (lngObjhDC1)
> End Sub

上記の部分を下記に変更して見て下さい。

    '取得したハンドルを開放（システムリソースを開放する）
    DeleteObject (lngObjhDC1)
    DeleteObject (lngObjhDC2)
End Sub

#　No.250 にも書いておりますが、当サイトのサンプルをご利用の場合は、はじめにお読み
　 下さいを読んでから、ご利用願います。

解決しました。
迅速な解答ありがとうございました。