Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

stampare in due stampanti

Ultimo Aggiornamento: 10/04/2017 23:29
Post: 153
Registrato il: 17/07/2011
Età: 27
Utente Junior
excel 2000/2007
OFFLINE
10/04/2017 19:44

Ciao a tutti,
Come posso modificare la macro allegata per stampare in due stampanti?


Sub Stampa()
Dim avviso As String

Application.ScreenUpdating = False
    
    
'-----------------------------------------
'stampante 1 ok 

    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintPreview
'-----------------------------------------
'stampante 2 nuova stampante
    
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintPreview
'-----------------------------------------

         
       
    Application.ScreenUpdating = True
    
End Sub


igor


excel 2007
Post: 490
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
10/04/2017 23:29

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)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 06:15. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com