Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per stampa a libretto

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Macro per stampa a libretto

Postdi Dylan666 » 05/03/08 09:39

casi ha scritto: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?
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Sponsor
 

Re: Macro per stampa a libretto

Postdi Dylan666 » 05/03/08 13:00

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
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Re: Macro per stampa a libretto

Postdi casi » 05/03/08 13:04

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
casi
Utente Junior
 
Post: 26
Iscritto il: 18/01/06 13:29

Re: Macro per stampa a libretto

Postdi Anthony47 » 05/03/08 15:19

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per stampa a libretto

Postdi casi » 06/03/08 14:21

A me con Options.PrintReverse = False adesso funziona bene.
casi
Utente Junior
 
Post: 26
Iscritto il: 18/01/06 13:29

Re: Macro per stampa a libretto

Postdi ciobin74 » 16/06/08 23:22

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
ciobin74
Newbie
 
Post: 1
Iscritto il: 16/06/08 23:15

Re: Macro per stampa a libretto

Postdi Anthony47 » 17/06/08 00:03

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per stampa a libretto

Postdi ricky53 » 22/03/10 02:28

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro per stampa a libretto

Postdi ricky53 » 22/03/10 02:42

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro per stampa a libretto

Postdi Anthony47 » 22/03/10 10:25

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per stampa a libretto

Postdi ricky53 » 22/03/10 11:11

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro per stampa a libretto

Postdi ricky53 » 22/03/10 13:05

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Macro per stampa a libretto":


Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti

cron