|
Private Sub CommandButton1_Click()
' Richiama la routine per l'impostazione della stampante ' nel controllo CommonDialog. On Error Resume Next CommonDialog1.Flags = &H40 ' Finestra dialogo Imposta stampante. CommonDialog1.ShowPrinter end Sub |