Hoi mensen,
Ik heb een script wat een excel bestand kan opslaan als een pdf bestand. Het maakt gebruik van acrobat destiller. als "printer". Het excel bestand wordt opgezet naar een .ps bestand en dat wordt vervolgens weer geprint met acrobat destiller.
Het script ziet er zo uit:
Hij slaat hem wel op als een .ps bestand in de map D:\PSs met de juiste naam, maar hij converteert hem niet naar .pdf in de juiste map. Als ik het postbestandje via Windows Explorer draai (met Acrobat Destiller) krijg ik de volgende foutmelding:
Ik gebruik Office 2003, XPpro SP2, Acrobat 6 Professional pakket (Acrobat Destiller 6.0.0)
Ik heb ben echt uren bezig geweest met lezen van documentatie die ik zelf bij elkaar heb gesprokkeld, maar ik kan het NIET vinden. Weet iemand van jullie waarom hij niet wil converteren???
Alvast bedankt voor de moeite!
Ik heb een script wat een excel bestand kan opslaan als een pdf bestand. Het maakt gebruik van acrobat destiller. als "printer". Het excel bestand wordt opgezet naar een .ps bestand en dat wordt vervolgens weer geprint met acrobat destiller.
Het script ziet er zo uit:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Public Sub PrintPDF()
' Define the postscript and .pdf file names.
Dim PSFileName As String
Dim PDFFileName As String
If invoiceNumber < 10 Then
PDFFileName = "D:\PDFs\2005G00" & invoiceNumber & ".pdf"
PSFileName = "D:\PSs\2005G00" & invoiceNumber & ".ps"
ElseIf invoiceNumber < 100 Then
PDFFileName = "D:\PDFs\2005G0" & invoiceNumber & ".pdf"
PSFileName = "D:\PSs\2005G0" & invoiceNumber & ".ps"
Else
PDFFileName = "D:\PDFs\2005G" & invoiceNumber & ".pdf"
PSFileName = "D:\PSs\2005G" & invoiceNumber & ".ps"
End If
' Print the Excel range to the postscript file
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.Range("Print_Area").PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=PSFileName
' Convert the postscript file to .pdf
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
End Sub |
Hij slaat hem wel op als een .ps bestand in de map D:\PSs met de juiste naam, maar hij converteert hem niet naar .pdf in de juiste map. Als ik het postbestandje via Windows Explorer draai (met Acrobat Destiller) krijg ik de volgende foutmelding:
code:
1
2
3
4
5
6
7
8
9
| Start Time: maandag 27 december 2004 at 20:58 Source: 2005G044.ps Destination: D:\PSs\2005G044.pdf Adobe PDF Settings: C:\Documents and Settings\All Users\Documents\Adobe PDF 6.0\Settings\ps.joboptions %%[ Error: undefined; OffendingCommand: E ]%% %%[ Flushing: rest of job (to end-of-file) will be ignored ]%% %%[ Warning: PostScript error. No PDF file produced. ] %% Distill Time: 0 seconds (00:00:00) **** End of Job **** |
Ik gebruik Office 2003, XPpro SP2, Acrobat 6 Professional pakket (Acrobat Destiller 6.0.0)
Ik heb ben echt uren bezig geweest met lezen van documentatie die ik zelf bij elkaar heb gesprokkeld, maar ik kan het NIET vinden. Weet iemand van jullie waarom hij niet wil converteren???
Alvast bedankt voor de moeite!
OK... thanx voor de input bram! ik ga er even naar kijken. Het klinkt best logisch wat je zegt. Je hebt namelijk dat .ps een eigen formaat heeft. Ik ging er vanuit dat dit wel zou werken omdat mijn Adobe helemaal geintegreerd zit in me office.
/u/126369/Daos2.png?f=community)