Tengo este código y me gustaría lanzar todas las impresiones en un solo documento para así poder imprimir a doble cara en la impresora, ya que actualmente las lanza de una en una y no tengo esa opción, además de que haya un campo que se autoincremente según las copias que mande
Al final lo que yo quiero es lo siguiente,
1º paso --> Solicite el "Identificador" 2º paso --> Solicite el "N de impresiones"
Si "Identificador" = 1996 y "N de impresiones" = 6 --> Me mande 6 impresiones con el identificador incrementando hasta 2002 y que se haga en Doble cara.
Muchas gracias!
Sub TOP()
Dim sInput As String
sInput = InputBox("Garantía de calidad COPIA Nº", "Getting my doc prop val")
ActiveDocument.CustomDocumentProperties("Counter").Value = sInput
Dim i As Long, j As Long
With ActiveDocument
j = CLng(InputBox("Número de impresiones", "Print Copies"))
For i = 1 To j
With .CustomDocumentProperties("Counter")
.Value = .Value + 1
End With
.Fields.Update
ActiveDocument.PrintOut Copies:=1
Next
.Save
End With
End Sub