Saving an Excel as a PDF using VBA

[p4nny]

Hi,

I would like to save a tab called "Booking form" as a PDF

AND

for the filename to be based on 2 textboxes within a userform within the same workbook.

Hope that makes sense.

Appreciate the help, as always!

 

[makexcel]

This code saves in pdf sheet " Sheet2 "

Sub SaveSheetsToPdf() Dim filename As String
 filename = Range("A2") & Range("B2") & ".pdf"
 Sheets("Sheet2").ExportAsFixedFormat Type:=xlTypePDF, _
 filename:=ActiveWorkbook.Path & filename & ".pdf", _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=True 'False not visualizzation
End Sub

 

[jolivanes]

Or like this?

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
        ActiveWorkbook.Sheets("Booking form").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            ActiveWorkbook.Path & "\" & TextBox1 & " " & TextBox2 & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True    '<---- or False
    Application.DisplayAlerts = True
    Unload Me
End Sub

@makexel
I think you forgot the backslash for saving

 

[makexcel]

Or like this?

Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
        ActiveWorkbook.Sheets("Booking form").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            ActiveWorkbook.Path & "\" & TextBox1 & " " & TextBox2 & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True    '<---- or False
    Application.DisplayAlerts = True
    Unload Me
End Sub

@makexel
I think you forgot the backslash for saving

ok , I will pay more attention , I had tested , thanks