Add this to your report:

Code:
    Procedure OnPrintReport Handle  ByRef hPrintDlg
        Handle hoPrintDialog
        PRINTPAGERANGE[] PageRanges
        
        Forward Send OnPrintReport (&hPrintDlg)


        Get phoPrintDialog to hoPrintDialog
    
        Move 1 to PageRanges[0].nFromPage
        Get ReportPageCount to PageRanges[0].nToPage
        Set pPageRanges of hoPrintDialog to PageRanges
        Set piFlags of hoPrintDialog to (PD_USEDEVMODECOPIES ior PD_DISABLEPRINTTOFILE ior PD_PAGENUMS ior PD_SELECTION)
    End_Procedure
Hope this helps...