stampare più copie di una pagina che può essere in posizione variabile per la presenza di pagine non contenenti dati da stampare

Question

Salve a tutti.

Con Office Pro 2010 SP1 creo dei documenti di Word Stampa Unione con del testo fisso e dei campi variabili riempiti con i dati contenuti in un foglio di Excel.

In base a questi dati ho delle pagine vuote e altre piene, ma non posso saperlo a priori. Per esempio: in Excel il campo reparto può contenere i valori AAA oppure BBB. Nel caso contenga BBB verrà preparata una pagina contenente le indicazioni operative per quel reparto, nel caso contenga AAA non è necessario creare una pagina. 

La prima pagina del documento deve essere stampata in 3 copie, questa è sempre presente, per cui con delle semplici istruzioni VBA risolvo il problema, ma nel caso del reparto BBB non so come stampare 2 copie di quella pagina, che non so se è presente e non so in quale posizione sia, perchè può essere preceduta da altre pagine a loro volta condizionate dai valori del foglio di Excel.

Per ora riesco a stampare tutte le pagine del documento, facendo uscire pagine bianche quando non ho dati particolari da stampare (come nel caso del reparto AAA), ma vorrei evitare questo spreco di tempo anche per i colleghi che devono togliere le pagine bianche e controllare che le copie siano coerenti.

La situazione è questa:

1 3, 2 2, 3 1, 4 2, 5 1, 6 1, 7 2, 8 2, 9 1, 10 1, 11 3, ecc. fino a 21 2

dove il primo numero rappresenta il numero di pagina e il secondo il numero delle copie di quella pagina, ma le pagine 5, 7, 10, 13 e 18 potrebbero essere bianche e vorrei saltarle.

E' possibile saltare le pagine bianche e stampare il corretto numero di copie delle altre?

Grazie e cordiali saluti.

Paola

Answer 1

Ciao PaolaGio,

per una migliore assistenza chiedi supporto al Microsoft Visual Basic Forum, appositamente creato per gli sviluppatori VB.

Un saluto,

Answer 2

Ciao,

purtroppo sono sempre in alto mare.

Cambiamo la prospettiva:

devo stampare una lettera, composta da più pagine, e voglio evitare di stampare i fogli "bianchi", ma non posso perdere la corretta sequenza in cui tutti i fogli, pieni o vuoti, sono prodotti perchè mi serve per determinare il numero delle copie da stampare di ogni foglio. E' possibile contare tutte le pagine e non stampare quelle vuote?

Grazie e saluti.

Answer 3

Ciao PaolaGio,

innanzitutto, mi scuso per il ritardo nel dare seguito alla tua richiesta di assistenza.

Ho notato che nessuno, fino a questo momento, ha ancora risposto, il che può dipendere dal fatto che la soluzione al tuo problema non sia ancora nota o, che il tuo “scenario” non sia condiviso da altri utenti oppure che occorrano maggiori informazioni da parte tua per facilitare il compito di chi voglia postare una risposta.

Sarebbe utile, pertanto, che tu aggiornassi la tua richiesta, qualora il problema persista, per metterci in condizione di aiutarti.

In alternativa, posso consigliarti di metterti in contatto con il **Servizio Clienti Microsoft**, chiamando il numero 0238591444.

Un saluto,

Answer 4

no, non mi sono spiegata bene io, la stmpa unione che viene lanciata dall'utente riempie con i dati variabili un testo già scritto. Alcune pagine però sono destinate a reparti specifici, che altri invece non hanno. Faccio un esempio:

reparto AAA     pagina 1           testo      CIAO AAA

                         pagina 2           scarpe   AAA                          

                        pagina 3            istruzioni                                 2 copie

reparto BBB     pagina 1           testo      CIAO BBB

                        pagina (2) 3      istruzioni                                  2 copie

Per ora in VBA ho queste istruzioni:

Application.PrintOut FileName:="", Range:=wdPrintFromTo, From:="1", To:="1", Item:= _

        wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _

        Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _

        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Application.PrintOut FileName:="", Range:=wdPrintFromTo, From:="1", To:="4", Item:= _

        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _

        Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _

        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    Application.PrintOut FileName:="", Range:=wdPrintFromTo, From:="4", To:="4", Item:= _

        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _

        Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _

        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    Application.PrintOut FileName:="", Range:=wdPrintFromTo, From:="5", To:="5", Item:= _

        wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _

        Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _

        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    Application.PrintOut FileName:="", Range:=wdPrintFromTo, From:="6", To:="6", Item:= _

        wdPrintDocumentContent, Copies:=3, Pages:="", PageType:=wdPrintAllPages, _

        Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _

        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Se stampo anche le pagine vuote (pagina 2 per repaarto BBB)  allora riesco a stampare le copie corrette, ma vorrei farlo senza le pagine bianche che poi devono essere tolte.

Non so se così è più chiaro.....

Answer 5

Ciao PaolaGio,

il fatto è che io non capisco la necessità/il senso di quelle pagine vuote. Io farei così:

• { IF { MERGEFILED Tipo } = "AAA" { INCLUDETEXT  "D:\Percorso\DocAAA.docx" } { INCLUDETEXT  "D:\Percorso\DocBBB.docx" } }

e niente pagine vuote.

Ma forse ancora non ho capito bene...