[VB6] DataReport e stampa di record molto lunghi

[donini]

buona domenica a tutto il forum
devo stampare dei record provenienti da un db access il mio problema è che il record è molto lungo e in una pagina non ci sta anche se stampo in orizzontale, come posso stampare su due pagine.
codice attualmente in uso

Private Sub stampa_Click()
Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

    db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "paghe.mdb"

    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open

    Set rs = conn.Execute("SELECT * FROM paghe WHERE (nome='" & nome.Text & "' )")

    ' Connette il Recordset al DataReport.
    Set rptpaghe.DataSource = rs
    rptpaghe.Orientation = rptOrientLandscape
    rptpaghe.WindowState = vbMaximized
    rptpaghe.Show vbModal
End Sub