questo è il codice che a me serve per stampare il report e che non riesco a stampare in orizzontale pultroppo le indicazioni che mi avete mandato non fuziona.
ho installato di nuovo sp6 ma non è cambiato nulla.
se avete qualche altro suggerimento grazie

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_SETTABSTOPS = &H192

Private Sub Command1_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 & "lancioni.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 fase_lavoro", , adCmdText)

' Connette il Recordset al DataReport.
Set rptfase_lavoro.DataSource = rs
rptfase_lavoro.WindowState = vbMaximized
rptfase_lavoro.Show vbModal

rs.Close
conn.Close
End Sub