WWW.ROOTWEB.IT

Creare nel web

Numero di utenti collegati:

Call: +3265-9856-789

Stampa in formato libro

Una volta creata la macro sostituire alla variabile Pages:=" ", i seguenti valori

3,2,7,8,9,12,15,14,19,20,21,24,27,26,31,32,33,36,39,38,43,44,45,48,51,50,55,

56,57,60,63,62,67,68,69,72,75,74,79,80,81,84,87,86,91,92,93,96,99,98

Ecco come dovrebbe ora apparire la macro pagine_ interne_inv

Sub pagine_interne_inv()

' Macro registrata il 16/12/2008

With Options

.DefaultTray = "Usa impostazioni stampante"

.PrintReverse = True

.MapPaperSize = True

End With

Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _

wdPrintDocumentContent, Copies:=1, Pages:="3,2,7,8,9,12,15,14,19,20,21,24,27,26,31,32,33,36,39,38,43,44,45,48,51,

50,55,56,57,60,63,62,67,68,69,72,75,74,79,80,81,84,87,86,91,92,93,96,99,98",

PageType:= _

wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _

PrintZoomColumn:=2, PrintZoomRow:=1, PrintZoomPaperWidth:=11907, _

PrintZoomPaperHeight:=16839

End Sub

▬ Passare alla stampa definitiva delle pagine esterne utilizzando la macro pagine_esterne

▬ Finita la stampa delle pagine esterne rimettere la pila dei fogli stampati in macchina con la parte bianca in alto.

Indietro [1] [2] [3] [4] [5] [6] Avanti