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