attivare il tasto "Annulla" sul xlDialogPrinterSetup

[marco_budinPartecipante marco_budin Karma: 2 pts]

Buongiorno a tutti, e buon anno!

torno con un problemino: ho scritto questo codice per stampare scegliendo la stampante su cui stampare il documento. Praticamente esce il dialogPrinter con la lista delle stampanti e io scelgo su quale stampare, e poi faccio OK e stampo. Il problema nasce quando voglio interrompere il processo, e dalla dialogPrinter schiaccio "annulla"... il documento viene stampato comunque. Sia se faccio OK, sia se faccio annulla. Allego il codice:

Public Sub Stampanti_timeout_spinale()
    Application.Dialogs(xlDialogPrinterSetup).Show
    Sheets("Timeout").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    
   Sheets("intervento spinale").Select
   Range("k5").Select
 End Sub

C'è un modo per attivare il pulsante "annulla" del dialogPrinter...? avrò sicuramente dimenticato qualcosa... cioè nelle funzioni msgbox metto il vbYesNo (Es: MsgBox("Attenzione: attendere fino al prossimo messaggio?", vbYesNo, "Attenzione! Avviso") = vbYes Then))...

spero che qualcuno possa aiutarmi, in attesa vi ringrazio anticipatamente e vi auguro una buona serata

saluti

Marco

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

marco_budin ha scritto:

C'è un modo per attivare il pulsante "annulla" del dialogPrinter...?

Sì.

Ogni chiamata a un oggetto Dialog esce con un valore di ritorno vero/falso. Devi solo testare il valore che esce da .Show ...

[Autore]

Articoli