Stampa di alcune pagine in word...

[nicola75ss]

Sub stampa()
Dim tot, i As Integer
tot = ActiveDocument.BuiltInDocumentProperties("Number of Pages")
For i = 1 To tot Step 3
  ActiveDocument.PrintOut i, i
Next i
End Sub