xl2003/vba and Acrobat 6.0

[Gixxer_J_97]

hi all,

i have the following code:

Public Sub PrintToPdf(ws As Sheets, out As String)
Dim myPDF As PdfDistiller, PSfilename As String, PDFfilename As String
Set myPDF = New PdfDistiller

' Define the postscript filename
PSfilename = docpath & "temp.ps"
' Define the .pdf filename
PDFfilename = out
ws.Select
ws(1).Activate
ActiveSheet.PrintOut Copies:=1, Preview:=False,
ActivePrinter:=ChoosePrinter(pdfPrinter), PrintToFile:=True, Collate:=True,
PrToFilename:=PSfilename
myPDF.FileToPDF PSfilename, PDFfilename, ""
Kill docpath & "temp.ps"
Kill docpath & "*.log"
End Sub

which works perfectly, with the exception that it only prints 1 page, not
all the sheets in ws.
any suggestions on how i can modify this to get it to print all sheets in ws?

tia!
J

 

[Gareth]

You've activated one sheet and then said to print activesheet.

Try something like:

Public Sub PrintToPdf(ws As Sheets, out As String)
Dim myPDF As PdfDistiller, PSfilename As String, PDFfilename As String
Set myPDF = New PdfDistiller

' Define the postscript filename
PSfilename = docpath & "temp.ps"
' Define the .pdf filename
PDFfilename = out

ws.PrintOut Copies:=1, Preview:=False, _
ActivePrinter:=ChoosePrinter(pdfPrinter), PrintToFile:=True,
Collate:=True, _
PrToFilename:=PSfilename
myPDF.FileToPDF PSfilename, PDFfilename, ""
Kill docpath & "temp.ps"
Kill docpath & "*.log"
End Sub

HTH,
Gareth