codice:
    On Error Resume Next
    CommonDialog1.CancelError = True
    CommonDialog1.ShowPrinter
    If err = cdlCancel Then Exit Sub
    Printer.PaintPicture ita.Picture, (Printer.Width - ita.Width) / 2, Printer.CurrentY + 1000
    Printer.EndDoc