Save as XLS and PDF

[MWalton]

Hello All,

I am looking to make a macro that will save my current workbook as an XLS and a PDF.

To save as an XLS I am currently using,

Sub Save()
    ThisFile = Range("B7").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

This is working great for me, but I haven't found a macro yet that will take the file name from the XLS and just save as a PDF. Also, if at all possible, I would like to have a short key in there to make it all quicker, but if not that is fine

Thanks,

Matt

 

[Domenic]

Try...

[font=Courier New][color=darkblue]Sub[/color] SaveAsPDF()

    [color=darkblue]Dim[/color] ThisFile [color=darkblue]As[/color] [color=darkblue]String[/color]
    
    ThisFile = Range("B7").Value
    
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=[color=darkblue]False[/color]
        
[color=darkblue]End[/color] [color=darkblue]Sub[/color][/font]

For a shortcut key...

1) Press Alt+F8

2) Select the macro called 'SaveAsPDF'

3) Select 'Options'

4) Enter your shortcut key

5) Click Ok

 

[MWalton]

Thanks a lot for the response, the macro works great!

Is it possible to have one macro that saves an XLS and a PDF at the same time? Using 2 works fine, but having 1 to do both would be awesome

Thanks
Matt

 

[Domenic]

Try...

[font=Courier New][color=darkblue]Sub[/color] Save()

    [color=darkblue]Dim[/color] ThisFile [color=darkblue]As[/color] [color=darkblue]String[/color]
    
    ThisFile = Range("B7").Value
    
    ActiveWorkbook.SaveAs Filename:=ThisFile, FileFormat:=52
    
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=[color=darkblue]False[/color]
        
[color=darkblue]End[/color] [color=darkblue]Sub[/color][/font]

Change the FileFormat, accordingly.

 

[MWalton]

Sub Save()

    Dim ThisFile As String
    
    ThisFile = Range("B7").Value
    
    ActiveWorkbook.SaveAs Filename:=ThisFile, xls:=52
    
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        
End Sub

When I use that, I get an error that reads,
'Can't execute code in break mode'

Matt

 

[Domenic]

Try replacing...

xls:=52

with

FileFormat:=51   'Workbook default

or

FileFormat:=-4143  'Workbook normal