Syntax error in code for "Save to PDF" button

[tripodgod]

Hello again,

Got myself in a right muddle with a command button. All i want it to do is generate the pre populated form on sheet8 as a PDF, then open it. I tried this code:

Sub ExportAsFixedFormat()
    Type As XlFixedFormatType
    Filename As Object
    Quality As Object
    IncludeDocProperties As Object
    IgnorePrintAreas As Object
    From As Object
    To As Object
    OpenAfterPublish As Object
    FixedFormatExtClassPtr As Object

End Sub

Private Sub CommandButton8_Click()
Dim ws As Worksheet
Set ws = Sheet8

ws.ExportAsFixedFormat (XlFixedFormatType.xlTypePDF, Filename:= "ON", , , , , ,OpenAfterPublish:= TRUE, ,)

End Sub

I tried to do it with and without the names eg:

ws.ExportAsFixedFormat (XlFixedFormatType.xlTypePDF, ON, , , , , , TRUE, ,)

I get either a "Syntax error" or an "Expected expression". I have written this entire program as a complete newbie to code, and really appreciate all the help i have had from this site. So thank you in advance!

 

[jsotola]

i recorded a macro of exporting a worksheet to macro and got this

[COLOR=#ff0000]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _[/COLOR]
[COLOR=#ff0000]                                Filename:="F:\test.pdf", _[/COLOR]
[COLOR=#ff0000]                                Quality:=xlQualityStandard, _[/COLOR]
[COLOR=#ff0000]                                IncludeDocProperties:=True, _[/COLOR]
[COLOR=#ff0000]                                IgnorePrintAreas:=False, _[/COLOR]
[COLOR=#ff0000]                                OpenAfterPublish:=False[/COLOR]


so yours is


[COLOR=#ff0000]Sheet8.ExportAsFixedFormat Type:=xlTypePDF, _[/COLOR]
[COLOR=#ff0000]                           Filename:="ON", _[/COLOR]
[COLOR=#ff0000]                           Quality:=xlQualityStandard, _[/COLOR]
[COLOR=#ff0000]                           IncludeDocProperties:=True, _[/COLOR]
[COLOR=#ff0000]                           IgnorePrintAreas:=False, _[/COLOR]
[COLOR=#ff0000]                           OpenAfterPublish:=False[/COLOR]

 

[tripodgod]

i recorded a macro of exporting a worksheet to macro and got this

[COLOR=#ff0000]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _[/COLOR]
[COLOR=#ff0000]                                Filename:="F:\test.pdf", _[/COLOR]
[COLOR=#ff0000]                                Quality:=xlQualityStandard, _[/COLOR]
[COLOR=#ff0000]                                IncludeDocProperties:=True, _[/COLOR]
[COLOR=#ff0000]                                IgnorePrintAreas:=False, _[/COLOR]
[COLOR=#ff0000]                                OpenAfterPublish:=False[/COLOR]


so yours is


[COLOR=#ff0000]Sheet8.ExportAsFixedFormat Type:=xlTypePDF, _[/COLOR]
[COLOR=#ff0000]                           Filename:="ON", _[/COLOR]
[COLOR=#ff0000]                           Quality:=xlQualityStandard, _[/COLOR]
[COLOR=#ff0000]                           IncludeDocProperties:=True, _[/COLOR]
[COLOR=#ff0000]                           IgnorePrintAreas:=False, _[/COLOR]
[COLOR=#ff0000]                           OpenAfterPublish:=False[/COLOR]

Thank you very much, worked like a charm.