Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Selezione stampante

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Selezione stampante

Postdi apocrimata75 » 20/01/16 13:36

Salve a tutti, chiedo il vs aiuto per lo sviluppo di una macro utile a stampare il foglio attivo selezionando una specifica stampante (non predefinita). Ho provato a usare questa, ma non funziona
Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
Application.ActivePrinter = "Brother DCP-165C"
ThisWorkbook.Worksheets(c.Value).PrintOut
'
End Sub


Grazie anticipatamente

p.s.: il nome della stampante lo rilevo dalle proprietà della stampante desiderata.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Sponsor
 

Re: Selezione stampante

Postdi Anthony47 » 20/01/16 23:55

Per la scelta della stampante c'e' uno specifico dialog box, che puoi sfruttare con questo blocco da inserire prima di avviare la stampa:
Codice: Seleziona tutto
'Scegli stampante:
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Selezione stampante

Postdi apocrimata75 » 21/01/16 18:14

Gentilissimo come sempre.
Purtroppo non posso usarla, in quanto dovrei scegliere ogni volta la stampante e, siccome le stampe potrebbero superare il centinaio, non sarebbe possibile.

La macro che utilizzo (al quale avrei aggiunto il codice sopra riportato o tramite
Codice: Seleziona tutto
call
) è la seguente:

Codice: Seleziona tutto
Sub stampa()
'

 
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1

End Sub

Codice: Seleziona tutto
Sub stampanew()
Call stampa

If [n4] <= 0 Then Exit Sub
Do While [b20] < [m4]
  [b20] = [b20] + [n4]
  DoEvents
  Call stampa
Loop
End Sub


dove la prima stampa la pagina corrente (collegata ad un pulsante), la seconda stampa le pagine fino a... partendo da quella corrente.

p.s.: dall'ufficio non posso allegare files
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Re: Selezione stampante

Postdi Anthony47 » 22/01/16 00:19

Non capisco la preoccupazione; si tratta di capire dove comincia il processo e "lì" (all'inizio) inserire la scelta della stampante...
Mi pare che il tuo "inizio" sia Sub stampanew(), quindi:
Codice: Seleziona tutto
Sub stampanew()
'Scegli stampante:
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If

Call stampa

If [n4] <= 0 Then Exit Sub
'etc etc

O no?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Selezione stampante

Postdi apocrimata75 » 26/01/16 10:46

Pensavo erroneamente che per ogni pagina richiedesse la scelta della stampante. Funziona perfettamente. Inserisco il codice completo

Codice: Seleziona tutto
Sub stampanew()
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
Call stampa

If [n4] <= 0 Then Exit Sub
Do While [b20] < [m4]
  [b20] = [b20] + [n4]
  DoEvents
  Call stampa
Loop
End Sub


Grazie mille.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22


Torna a Applicazioni Office Windows


Topic correlati a "Selezione stampante":


Chi c’è in linea

Visitano il forum: Nessuno e 14 ospiti