WWW.ROOTWEB.IT

Creare nel web

Numero di utenti collegati:

Call: +3265-9856-789

Stampa in formato libro

End Sub

▬ La stessa operazione va fatta sulla seconda macro, nella quale la sequenza delle pagine da stampare va modificata come segue:

2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31,34,35,38,39,42,43,46,47,50,51,54,

55,58,59,62,63,66,67,70,71,74,75,78,79,82,83,86,87,90,91,94,95,98,99

Ecco come dovrebbe ora apparire la macro pagine_interne

Sub pagine_interne()

' Macro registrata il 16/12/2008

With Options

.DefaultTray = "Usa impostazioni stampante"

.PrintReverse = False

.MapPaperSize = True

End With

With ActiveDocument

.PrintPostScriptOverText = False

.PrintFormsData = False

End With

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

wdPrintDocumentContent, Copies:=1, Pages:="2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31,34,35,38,39,42,43,46,47,50,

51,54,55,58,59,62,63,66,67,70,71,74,75,78,79,82,83,86,87,90,91,94,95,98,99",

PageType:= _

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

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

PrintZoomPaperHeight:=16839

End Sub

▬ Nel caso in cui la vostra stampante stampasse invertendo le pagine, usate la seguente macro pagine_interne_inv

modificando anche –come fa la macro – il senso della stampa da:

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