Con questa macro puoi scegliere quale stampante utilizzare:
Option Explicit
Sub ScegliStampante()
With Application.Dialogs(xlDialogPrinterSetup)
If .Show Then
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=.Application.ActivePrinter
End If
End With
End Sub
Altrimenti, per le vie brevi utilizzando il debug, con la funzione (un esempio):
variabile = Application.ActivePrinter
rilevi il nome delle stampanti che hai intenzione di utilizzare, impostandole come predefinite prima di operare con la funzione, che poi sfrutterai con la funzione (un esempio):
Application.ActivePrinter = "Epson SQ870 su LPT1:"
attivi la prima stampante e fai la stampa con:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
e poi ripeti con il secondo nome stampante (un esempio):
Application.ActivePrinter = "Lexmark X4850 su USB1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
[Modificato da rollis13 10/04/2017 23:31]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)