Problem Saving to File Name

Willow123

New Member
Joined
Dec 29, 2018
Messages
15
Hi All,

I wrote a macro that will loop through all open workbooks and save each and print each to pdf. It saves fine and it prints to PDF fine but it makes me enter the file name of the pdf manually. I would like it to use the filename for each workbook as the filename for each pdf file printed. Any thoughts would be welcomed.

Code:
[FONT=Verdana]Sub SB()[/FONT]
[FONT=Verdana]Dim singlebook As Workbook
Dim filename As String
Dim xlWrkSht As Worksheet
Dim fil As Scripting.File[/FONT]
[FONT=Verdana]
For Each singlebook In Workbooks
singlebook.Activate
'filename = ActiveWorkbook.Name[/FONT]
[FONT=Verdana]singlebook.SaveAs
With ActiveWorkbook[/FONT]
[FONT=Verdana]
ActiveWorkbook.PrintOut ActivePrinter:="microsoft print to pdf", prtofilename:=True[/FONT]
[FONT=Verdana]
End With
Next singlebook[/FONT]

[FONT=Verdana]
End Sub[/FONT]
 

Some videos you may like

Excel Facts

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off

JoeMo

MrExcel MVP
Joined
May 26, 2009
Messages
16,935
Office Version
2010
Platform
Windows
The singlebook.SaveAs simply saves the workbook as an Excel file. You need to export it to pdf. try something like this after you substitute the correct file extension for your excel workbooks for the one in red font (.xlsm)
Rich (BB code):
For Each singlebook In Workbooks
    With singlebook
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Replace(.Name, ".xlsm", ".pdf"), _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    End With
Next singlebook
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,101,943
Messages
5,483,821
Members
407,415
Latest member
Anton1999

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top