いつもお世話になり大変助かっております。
ＶＢ２０１０の印刷についてお願いいたします

VB2010からReportDocument（名前：PrtDocument.）を使っての連続帳票を印刷しております
連続帳票は１０インチで６枚のラベルがセットになっております。
印刷はできているのですが、終了すると改ページ（１０インチ分）してしまいます。
データが１枚しかなくても改ページしてしまうので、改ページせずに、印刷したところで
用紙を止めたいのですが、どのようなロジックにしたらよろしいでしょうか
プリンターはエプソンのVP-700で用紙設定は10 X 10にしてあります

KakuteiDt:データセット
　　Hinmei       No
　　 AAA        11111
     BBB        22222
     CCC        33333
       |            |
       |            |

  Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
    PrtDocument.Print()
  End Sub

  Private Sub PrtDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrtDocument.PrintPage
    Dim f As New Font("ＭＳ明朝", 10.5, FontStyle.Bold)  ' フォント
    Dim LineHeight As Single = f.GetHeight(e.Graphics)   '１行の高さ
    Dim X As Integer = e.MarginBounds.Left '文字列の描画を開始する縦位置
    Dim Y As Integer = e.MarginBounds.Top  '文字列の描画を開始する横位置
    Dim dtRow As DataRow() = KakuteiDt.Select()
    X = 60
    Y = 0

    For Each row As DataRow In dtRow
      ' 印刷
        e.Graphics.DrawString(row.Item("Hinmei").ToString, f, Brushes.Black, X, Y)
        e.Graphics.DrawString(row.Item("No").ToString, f, Brushes.Black, X, Y)
        Y += LineHeight '縦位置を１行分次に進ませる。
        Y += LineHeight
        Y += LineHeight
        Y += LineHeight
        Y += LineHeight
        Y += LineHeight
        Y += LineHeight
        Y += LineHeight
        Y += LineHeight
        Y = Y - 2        '縦位置微調整
    Next
    e.HasMorePages = False
  End Sub

　よろしくお願いいたします。
  

何の為に途中で止めたいのか解りませんが、ページ印刷が Windows の仕様ですので無理かと。
特に、ReportDocument を使って印刷設定をしているなら尚更です。

Win32 API を使って印刷設定をすれば、１行印刷ができるようですが、VB2005 以降では
試した事もないし簡単にはいかないかと思います。

それより、手で巻き戻した方が簡単ではないですか？
印刷位置等の関連から途中で止めたいと言う事なら印刷設定で、１枚目の印刷、２枚目の印刷
と言うように選択できるようにしておけば済む事ではないでしょうか？
(昔、フロッピーのラベル印刷には上記のような方法を取っていました。)

私は、ページプリンターでラベルを印刷する場合、よく使用する分をついでに印刷するように
していました。
    

> 何の為に途中で止めたいのか解りませんが、ページ印刷が Windows の仕様ですので無理かと。
> 特に、ReportDocument を使って印刷設定をしているなら尚更です。
>
> Win32 API を使って印刷設定をすれば、１行印刷ができるようですが、VB2005 以降では
> 試した事もないし簡単にはいかないかと思います。
>
> それより、手で巻き戻した方が簡単ではないですか？
> 印刷位置等の関連から途中で止めたいと言う事なら印刷設定で、１枚目の印刷、２枚目の印刷
> と言うように選択できるようにしておけば済む事ではないでしょうか？
> (昔、フロッピーのラベル印刷には上記のような方法を取っていました。)
>
> 私は、ページプリンターでラベルを印刷する場合、よく使用する分をついでに印刷するように
> していました。

ありがとうございました。
手で巻き戻すようにします。
何とかしようと色々苦労して時間を費やしていましたので、
大変参考になりました。
今後もよろしくお願いいたします。