Macro per stampa a libretto

[Dylan666]

D'altra parte non ho trovato opzioni tra le proprietà di stampa per cui l'orine di uscita dovrebbe essere invertito. Anzi, l'opzione "Ordine di stampa" è flaggata proprio su "Dalla prima all'ultima".

Dove sarebbe quella opzione? Io ce non l'ho (Office 2003), ho una finestra identica a questa:
http://manuali.magicnet.it/word_xp/imma ... d%20xp.jpg

Può essere una opzione aggiuntiva della tua stampante? Provato togliendo il flag?

[Dylan666]

Sono un completro profanom a rivedendo la finestra di stampa e notando che l'opzione "fronte/retro" c'è mi sono detto "ci sarà il comando apposito per vb!". Mi pare di aver capito che non funziona con tutti i driver (non ritrovo il link dove lo dicevano), comunque il comando è SetDuplex che piò avere valore 1, 2, o 3
http://pubs.logicalexpressions.com/Pub0 ... asp?ID=116

[casi]

L'opzione "Ordine di stampa" si trova nella finestra che si apre cliccando "Proprietà".

Credo che dipenda dal driver della stampante perché selezionando una stampante diversa la finestra è completamente differente.

Anche l'opzione F/R dipende dal driver e quindi dalle proprietà della stampante.

ciao

[Anthony47]

Dylan, non lo dici ma immagino che tu abbia provato e non ti funziona.

Su tutte le mie stampanti l’ opzione “stampa in ordine inverso” la trovo tra le “Proprietà” della stampante, con denominazioni diverse, quali: Dall’ ultima alla prima; Ordine inverso; Reverse order.

Ho guardato anche l’ articolo Controlling the Printer from Word Vba, ma “preferisco” non provare a sfruttarlo.

Ho comunque trovato la proprieta’ PrintReverse (sintassi: Options.PrintReverse = True o False), che come effetto mi provoca la stampa 1-8 e non 8-1 come comandato.

A questo punto suggerisco di inserire l’ istruzione Options.PrintReverse = False nella nostra macro, diciamo subito dopo di TotFogli = TotPag / 4, e riprovare; per assurdo, se non funge ancora, provate anche Options.PrintReverse = True!
Ma temo che la disparita' di prestazioni tra le varie stampanti, e di conseguenza delle modalita' di interfacciamento tramite vba e drivers, ci impedira' di preparare una macro universale; avrei anche pensato a una macro di learning (stampare 4 pagine ed elaborare sulla sequenza di stampa prodotta), ma temo che anche questo metodo non ci porterebbe a una conclusione univoca.
Fate sapere cosa succede aggiungendo Options.PrintReverse.

Ciao

[casi]

A me con Options.PrintReverse = False adesso funziona bene.

[ciobin74]

Salve,
sto utilizzando la macro che avete inviato e mi sembra eccezionale.

L'unico problema è che avendo una stampante che non gestisce in modo automatico il fronte/retro ho utilizzato l'opzione 2.
Tuttavia, completato l'invio alla stampante dei fogli "fronte", esce la maschera che mi chiede di scegliere come stampare il retro, ma non parte la stampa. I file di spool restano in attesa. Solo dopo aver impostato anche la seconda scelta (stampa retro) parte la stampante, ma non mi da la possibilità di rimettere i fogli. Insomma, stampa tutto di filato.

Come mai dopo l'invio dello spool fronte la stampante non parte?

Ho una epson DX4250

Grazie

[Anthony47]

Ciao Ciobin74, benvenuto nel forum.
E' possibile che il tempo di avvio di stampa sia sostanzialmente piu' lungo del tempo che la macro impiega a lanciare la stampa delle pagine Fronte? Per una verifica basta aspettare un po' (diciamo qualche minuto), senza avviare la stampa delle pagine Retro, e vedere se per caso le stampe partono.
Se invece effettivamente le stampe partono solo quando, "dopo una lunga attesa", avvii la stampa Retro allora prova a modificare questa istruzione
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=QualiPag, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

in questa:

Codice: Seleziona tutto

    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:=QualiPag, PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        False, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

(Nota il Background:= False)
Se anche cosi' non ne ricavi niente, allora prova a registrare una macro mentre stampi di un lungo documento:
-le pagine 1,8 in modalita' 2 pagine per facciata (quindi un solo foglio)
-le pagine 2,7, stessa modalita'.
Interrompi la registrazione e posti il codice vba generato, insieme con eventuali commenti su come sono andate le due stampe.

Ciao.

[ricky53]

Ciao,
ho appena trovato il link (inserito da Anthony) a questa discussione in un altro forum.
E' passato molto tempo dalla fine di questa discussione ma non penso che riprenderla non sia buona cosa.

Ho provato la macro con un documento di 5 pagine: la macro ne aggiunge 4 per arrivare a 9. Strano!!!
In stampa ne stampa 8 ma con la numerazione a 9: ho l'opzione "pagina di pagine" e mi scrive 2 di 9, 3 di 9, ecc fino alla 8 di 9.
Inoltre le pagine 1 e 8 me le stampa bianche.

Anthony a te con 5 pagine cosa e come stampa?

Tempo fa avevo fatto un file-modello per la stampa a libro, leggendo questa discussione e quanto Anthony chiede per migliorare alcune funzionalità, mi è venuta la voglia di riprenderlo a vedere se quanto chiesto da Anthony viene gestito dal mio modello e, nel caso, implementarlo e renderlo disponibile agli utenti di questo forum.
Mi faccio risentire.

Ciao da Ricky53

[ricky53]

Caio,
ho tolto l'opzione "stampa in background" ed adesso la pagina 1-8 la stampa.

Rimane sempre il problema della numerazione di pagina errata nella mia prova con 5 pagine che vengono numerate come se fossero 9 ma ne stampa 8.
E' tardi e non faccio altre prove.
A domani.

Ciao da Ricky53

[Anthony47]

Ciao Ricky,
avevo gia' notato che si preparava una pagina in piu', ma la stampa (essendo subordinata al valore di TotPag) risultava corretta per cui non mi ero preoccupato di aggiornare il thread; "imprudentemente", dico oggi.
Per evitare la pagina in piu' avevo gia' inserito nella mia macro l' istruzione marcata <<<

Codice: Seleziona tutto

Selection.InsertBreak Type:=wdPageBreak
Selection.EndKey Unit:=wdStory, Extend:=wdMove   '<<<<
Loop


Il suo scopo e' apparentemente inutile, pero' funziona.
Questo evita non solo l' evidente errore nel caso si stampi l' informazione "Pag xx di yy" ma anche l' aggiunta successiva di ulteriori fogli vuoti qualora si ristampi il file con la pagina vuota.

Ogni informazione per ottenere una macro migliore e' benvenuta.

Ciao.

[ricky53]

Ciao,
l'istruzione c'era già.
Basta metterla per ultima.
Grazie.

Rileggo con attenzione quanto scritto nei vari interventi e ... magari trovo qualcosa di utile.
ci risentiamo.

Ciao da Ricky53

[ricky53]

Ciao,

prima ho scritto ma non sono stato chiaro.
Non considarate la mia frase:

l'istruzione c'era già.
Basta metterla per ultima.

Con quanto suggerito da Anthony si risolvono i problemi riscontrati.

Grazie di nuovo.

Ciao da Ricky53