+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Stampa documento Word da VBA

  1. #1
    8elvis8 non è in linea Novello
    Post
    2

    Angry Stampa documento Word da VBA

    Ciao a tutti,

    sono disperato, è da un mese che cerco sui vari forum una soluzione ma nulla.

    Vorrei creare una macro che mi stampa il documento Word che sto scrivendo 1 copia a colori e 3 copie in bianco&nero, senza doverlo fare manualmente.

    è un operazione che svolgo almeno 10 volte al giorno, e far sempre tutto a mano è stancante.
    Grazie mille per l'aiuto

    Buona serata a tutti

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,476
    Blogs
    5
    Qui non si fornisce codice pronto ("pappa pronta", vedi regolamento) quindi indica cosa hai provato a fare.

    Inoltre non si scrivono titoli simili e non si grida. Questa volta correggo io ... la prossima il thread viene chiuso.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  3. #3
    8elvis8 non è in linea Novello
    Post
    2
    Questo è ciò che ho provato, 2 versioni, ma non riesco a fare ciò necessito, stampare in BN in documento colorato.(vedere post per più dettagli)
    Grazie a tutti per l'aiuto e chiedo scusa per l'errore fatto nel primo post.



    codice:
    Sub stampa()
    '
    ' stampa Macro
    '
    '
        Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
            wdPrintDocumentWithMarkup, Copies:=3, Pages:="", PageType:= _
            wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
            PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0
          With ActiveDocument
           .Compatibility(wdPrintColBlack) = True
           .PrintOut
           .Compatibility(wdPrintColBlack) = False
           End With
        Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
            wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
            wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
            PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0
    End Sub










    codice:
    Sub PrintBlackAndWhite() 
    
    Dim bPrintBlackAndWhite As Boolean 
    Dim bSaved As Boolean 
    Dim doc As Document 
    
    
    On Error GoTo Error 
    'Set a reference to the active document 
    Set doc = ActiveDocument 
    On Error GoTo 0 
    
    'If a document was active, proceed 
    If Not doc Is Nothing Then 
    
        With doc 
    
           'Store the current save & black & white conditions 
           bSaved = .Saved 
           bPrintBlackAndWhite = .Compatibility(wdPrintColBlack) 
    
           'Set the Black & White option to true 
           .Compatibility(wdPrintColBlack) = True 
    
           'Display the Print Dialog 
           Dialogs(wdDialogFilePrint).Show 
    
           'Set the save & black & white back to their 
           'original condition 
           .Compatibility(wdPrintColBlack) = bPrintBlackAndWhite 
           .Saved = bSaved 
    
        End With 
    
    End If 
    
    Exit Sub 
    
    Error: 
        'Gracefully exit if no document is active 
    End Sub

+ Rispondi al Thread

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi