PDA

View Full Version : PDF multiple sheets



coxonitus
06-10-2011, 12:15 AM
hi everybody,

i have a question about creating a pdf file.

Sub OpslaanProjectAlgemeen()
' OpslaanProjectAlgemeen Macro
Application.DisplayAlerts = False
Dim SheetName As String
SheetName = InputBox(Prompt:="nieuwe filenaam:", _
Title:="geef een naam voor uw bestand")
Sheets("Calculatie Algemeen").Visible = True
Sheets(Array("Calculatie Algemeen", "CalculatieWerkbladAlgemeen")).Copy
Range("A:A").Delete
ActiveSheet.SaveAs "G:\Project\" & SheetName & ".xls"
ActiveWindow.Close
Sheets("Schakelbord").Select
Exit Sub
End Sub

i'm using upper code to save 3sheets. The button to run the macro is on the "Schakelbord". Now i want to PDF the file but i don't know how to put multiple sheets in to 1 pdf file.

FileName = RDB_Create_PDF(Sheets("Calculatie Algemeen"), "", True, True)


Within de pdf macro it gives me a fault at upper line.

coud anyone help me out