Stampare con 2 stampanti |
|
|
Storico discussioni |
|
| Stampare contemporaneamente con 2
stampanti di Daniel |
Ciao ragazzi, ho un problema . Spero che qualcuno
riesce a risolverlo.
Quando devo stampare dei documenti di excel
ho la necessità che mi vengano stampati contemporaneamente in due
stampanti( una in locale ed una collegata in rete) cioè clicco una
sola volta sull'icona della stampante e automaticamente mi deve
partire due stampe.
Mi è stato già detto che posso usare le
macro ma come...??? |
|
| di Mauro |
Non ho grande esperienza a riguardo, prova così:
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"Lexmark Optra S 2455", Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"HP laser jet", Collate:=True
End sub
Il codice
dovrebbe lanciare 2 stampe con 2 stampanti diverse.
L'attributo
"ActivePrinter" definisce la stampante attiva.
Inoltre ho visto
che anche
Application.ActivePrinter = "nomestampante"
serve
x gestire la stampante attiva.
Fai qualche prova e fammi sapere
se funziona!
Ciao |
|
| di Daniele |
Ho provato a fere ciò che mi avevi detto ma quando
lancio la stampa mi fa due stampe identiche sulla stampante
predefinita e non sulle stampanti da me indicate.
Ho provato
anche con Application.ActivePrinter ma mi da errore nella
compilazione. Ho provato anche a cambiare la stampante predefinita
ma mi fa sempre due copie sulla predefinita appunto.
Non tiene
conto delle stampanti indicate e ogni volta che vede ActivePrinter
mi lancia una stampa sulla stampante predefinita. |
|
| di Mauro |
| Immaginavo che sarebbe accaduta una cosa del
genere. Infatti la stampante dipende dal Sistema operativo più che
dall’applicativo. Bisognerebbe vedere se esiste un comando di Shell
che riesce a gestire la cosa da VBA. Rimaniamo in attesa di qualcuno
che abbia + esperienza a riguardo. |
|
| di Daniele |
| Grazie comunque...! |
|
| di apoben64 |
| Scusate l'intrusione e sicuramente è banale ciò che
dico , ma alcune volte per risolvere alcuni problemi ho utilizzato
il registratore di macro per simulare il codice e poi avere qualche
risposta, anche se penso anch'io che la simultaneità della stampa
dipenda dal sistema operativo . Ciao |
|
| di apoben64 |
| Dimenticavo, mi attivo per comunque trovare una
soluzione efficace. Ciao |
|
| di apoben64 |
Prova a verificare anche questa istruzione :
Sub Stampa()
application.activeprinter = "stampante1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
application.ActivePrinter = "stampante2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End sub
Fammi sapere
|
|
| di Mauro |
Per impostare la stampante, il codice è il
seguente:
Application.ActivePrinter = "NomeStampante su Porta:"
Esempio:
Application.ActivePrinter = "Lexmark Optra su
LPT1:"
Però Daniel dice ke non gli funziona, ed io non ho 2
stampanti collegate per provare.
Se qualcuno ha modo di
provare.... Ben volentieri! |
|
|