I use these lines of code:

private Sub DataReport_Initialize()
Printer.Orientation = vbPRORLandscape
If dePrinting.rsPrintFields.State = adStateOpen then
dePrinting.rsPrintFields.Requery
End If
dePrinting.rsPrintFields.Filter = " P_FLD0 = " & CStr(frmMain.intP_FLD0) & " AND P_FLD5 <= " & CStr(frmMain.lngNumberTo) & " AND P_FLD5 >= " & CStr(frmMain.lngNumberFrom)
End Sub




My problem is that it displays a blank report the first time the program runs, but it runs fine enough the second time and so on...
Thanks, Dr_Michael (not logged in anymore...)