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
codice: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

Rispondi quotando