Forum di Excel e VBA. Stampare con piu stampanti Excel
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.


  •  Home Stampare con piu stampanti Excel

Stampare con piu stampanti Excel

  • 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!

by ExcelVBA.it © 2018 Regole di utilizzo | Contatti