Dear Friends,
I want to print only some pages from the document in my pdf. If I do:
Sub LanzarImpresoraPDFCreator()
Dim fullPath As String
Dim PDFCreatorQueue As Variant
Dim printJob As Variant
Set PDFCreatorQueue = CreateObject("PDFCreator.JobQueue")
PDFCreatorQueue.Initialize
Application.ActivePrinter = "PDFCreator"
' ActiveDocument.PrintOut Background:=False, Range:=wdPrintRangeOfPages, Pages:="2-3"
' ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, From:="2", To:="3"
ActiveDocument.PrintOut Background:=False
'Wait for jobs to arrive at the queue for 10 seconds. You might need to increase the timeout if you are printing large files
'MsgBox "Waiting for the job to arrive at the queue..."
If Not PDFCreatorQueue.WaitForJob(10) Then
MsgBox "The print job did not reach the queue within " & " 10 seconds"
Else
'MsgBox "Currently there are " & PDFCreatorQueue.Count & " job(s) in the queue"
'MsgBox "Getting job instance"
Set printJob = PDFCreatorQueue.NextJob
'Configure settings for the current job. You always need to configure an output path,
printJob.SetProfileByGuid ("DefaultGuid")
fullPath = "d:\temp\miprueba.pdf"
printJob.ConvertTo (fullPath)
End If
End Sub
It works, but if I try with some of the commented lines it doesn't work: ' ActiveDocument.PrintOut Background:=False, Range:=wdPrintRangeOfPages, Pages:="2-3"
' ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, From:="2", To:="3"
How can I print only some pages?
Best Regards