Private Sub Command1_Click () Dim BeginPage, EndPage, NumCopies, Orientation, i ' Set Cancel to True. CommonDialog1.CancelError = True On Error GoTo ErrHandler ' Display the Print dialog box. CommonDialog1.ShowPrinter ' Get user-selected values from the dialog box. BeginPage = CommonDialog1.FromPage EndPage = CommonDialog1.ToPage NumCopies = CommonDialog1.Copies Orientation = CommonDialog1.Orientation For i = 1 to NumCopies ' Put code here to send data to your printer. Next Exit Sub ErrHandler: ' User pressed Cancel button. Exit Sub End SubHTH