Nella form, ho un pulsante "STAMPA" alla sua pressione esegue questo:



Private Sub Command60_Click()
Set DataReport3.DataSource = rsRecordSet2
Set DataReport3.DataSource = rsRecordSet3
Dim Mese2, Data2, Esecutore2, NFoglio2, Finalita, Descrizione2 As String

Mese2 = rsRecordSet2![Mese]
Data2 = rsRecordSet2![Data1]
Esecutore2 = rsRecordSet2![Esecutore]
NFoglio2 = rsRecordSet2![N Foglio]

Finalita = rsRecordSet3![Prodcampion]
Descrizione2 = rsRecordSet3![Descrizione]

Load DataReport3

DataReport3.Sections(1).Controls("Mese").Caption = UCase(Mese2)
DataReport3.Sections(1).Controls("Data").Caption = [Data2]
DataReport3.Sections(1).Controls("Esecutore").Capt ion = UCase(Esecutore2)
DataReport3.Sections(1).Controls("NFoglio").Captio n = [NFoglio2]

DataReport3.Sections(3).Controls("Finalita").Capti on = UCase(Finalita)
DataReport3.Sections(3).Controls("Descrizione").Ca ption = UCase(Descrizione2)
With Me
.Orientation = "rptOrientLandscape"
' Modifica secondo le tue necessità:
.TopMargin = 567
.BottomMargin = 851
.LeftMargin = 0
.RightMargin = 1134
.ReportWidth = 14000
'Centra la visualizzazione del Report:
If Me.WindowState = vbNormal Then
.Width = Screen.Width
.Height = Screen.Height
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End If
End With



DataReport3.Show vbModal

End Sub



Ciao e grazieeeeeeeee