Previous | Next | (P-PDF) Acrobat 6.0

Topic: Create PDF from Multiple PS on VBA
Conf: (P-PDF) Acrobat 6.0, Msg: 131379
From: Romario
Date: 4/20/2005 12:30 AM

Hi all,
I need to create ONE PDF from multiple PostScript or PDF on VBA
In particular, I have to create one automatic PDF from Multiple Post script that I create with the code below.

Thank you

Roberto


For i = 1 To 100
Sheets("console").Select
If Cells(15 + i, 13) = "X" Then
Cells(4, 4) = i
Refresh
Sheets("Da inviare").Select
ActiveSheet.Calculate
NomeFilePs = "G:" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "\" & i & ".ps"
NomeFileLog = "G:" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "\" & i & ".log"
Dest = "G:" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "\" & i & ".pdf"
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$42"
Application.ActivePrinter = "Adobe PDF on Ne02:"
Range("A1:M42").PrintOut Copies:=1, PrintToFile:=True, PrToFileName:=NomeFilePs
Acro.FileToPDF NomeFilePs, Dest, True
Kill NomeFilePs
Kill NomeFileLog
End If
Next
Set Acro = Nothing
End Sub