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