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 Inserire nel form una CommonDialog e nominarla "CommonDialog1" e un CommandButton denominato "CommandButton1" Assegnare all'evento CommandButton1_Click() il seguente codice: |