Stampa in formato libro
Se tutto è andato a buon fine, il foglio dovrebbe ora essere stampato su entrambe le facciate; su una facciata ci saranno le pagine 1 e 4 e sull’altra le pagine 2 e 3.
▬ Modifica della macro pagine_esterne(),
Strumenti
Macro
Macro
Evidenziare la macro pagine_esterne
Modifica
Sostituire alla variabile Pages:="1,4", i seguenti valori
4,1,8,5,12,9,16,13,20,17,24,21,28,25,32,29,36,33,40,37,44,41,48,45,52,49,56,
53,60,57,64,61,68,65,72,69,76,73,80,77,84,81,88,85,92,89,96,93,100,97
Attenzione, se si utilizza il copia-incolla, verificare che il testo non sia in rosso. In tale caso è possibile che, in coda alla sequenza, sia stato aggiunto due volte il carattere virgolette (“)
Ecco, per l’eventuale verifica, come apparirà la macro
Sub pagine_esterne()
'
' pagine_esterne Macro
' Macro registrata il 16/12/2008
'
With Options
.PrintReverse = False
.PrintDrawingObjects = True
End With
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="4,1,8,5,12,9,16,13,20,17,24,21,28,25,32,29,36,33,40,37,44,41,48,45,52,
49,56,53,60,57,64,61,68,65,72,69,76,73,80,77,84,81,88,85,92,89,96,93,100,97",
PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:=11907, _
PrintZoomPaperHeight:=16839
Indietro
[1]
[2]
[3]
[4]
[5]
[6]
Avanti