Printing Workbook as PDF

D

damnfabio

New Member
Joined
May 30, 2022
Messages
10
Office Version
  1. 365
Platform
  1. Windows
Hi there.

I've searched everywhere and couldn't find a solution for this :cry:

I'm trying to export an excel workbook as a single file with the following conditions:

- The first sheet shouldn't be exported
- The second sheet should be in duplicated
- The last sheet should be included or excluded based on a value from a specific cell in sheet1.
- everything should be in the same pdf file

Is someone able to help with this? Thank you so much in advance 🙏
 

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.
Sort by date Sort by votes
here the flag to print the last sheet is in sheet1.A1
change it to your flag cell.

Code: 
Sub CreatePdf()
Dim wsLast As Worksheet
Dim iShts As Integer, i As Integer, s As Integer
'duplicate sheet 2 to print twice
    Sheets(2).Select
    Sheets(2).Copy After:=Worksheets(Sheets.Count)
'Set wsLast = Worksheets(Sheets.Count)
  
Dim ws As Worksheet
Dim bPrintLast As Boolean
bPrintLast = Worksheets(1).Range("A2").Value
For i = 2 To Worksheets.Count - 1
    If i = Worksheets.Count - 2 And Not bPrintLast Then
      'dont print last sheet
    Else
       Worksheets(i).Select (False)
    End If
Next
  
    'export pdf
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\rpack\Desktop\name test.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True
  
    'delete the copied Sheet2
SetWarnings False
Worksheets(Sheets.Count).Delete
SetWarnings True
End Sub


Private Sub SetWarnings(ByVal pbOn As Boolean)
   Application.DisplayAlerts = pbOn    'turn off sheet compatability msg
   Application.EnableEvents = pbOn
   Application.ScreenUpdating = pbOn
End Sub
 
Upvote 0
Something like this could also work:

VBA Code: 
Sub a()

    Dim fileSave        As Variant
    Dim msg             As Integer
    Dim sheetcount      As Long
    Dim name            As String
    Dim actvsheet       As String
    Dim ws              As Worksheet

Application.ScreenUpdating = False

    actvsheet = ThisWorkbook.ActiveSheet.name
    Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
    Sheets(2).Select
    Sheets(2).Copy after:=Worksheets(2)
    Set ws = Worksheets(3)
    sheetcount = Sheets.Count
    
    For i = 2 To sheetcount
            If i = sheetcount Then
''''''''''''''''''''Put the criteria to include the last sheet here''''''''''''''''''''''''''''''''
                If ThisWorkbook.Sheets("Sheet1").Range("A1") = "yes" Then
                        name = name & _
                            ThisWorkbook.Sheets(i).name & ","
                Else
                End If
            Else
                name = name & _
                        ThisWorkbook.Sheets(i).name & ","
                
            End If
    Next i

    If Len(name) > 1 Then
        name = Left(name, Len(name) - 1)
        Else:

Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
        Exit Sub
    
    End If

Sheets(Split(name, ",")).Select


'Prompts user with an are you sure message. Shows the name of the selected sheets.
    msg = MsgBox("These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
'If User choses ok proceeds with the printing.
    If msg = vbOK Then

        With fileSave
            .InitialFileName = "Desktop\*.pdf"
'FilterIndex for a PDF file is 26 (You can count which row is a file type at when you Save As to get the desired file type's Index number.)
            .FilterIndex = 26
'If user choses OK on the Save as screen.
                If .Show = -1 Then

                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                    Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                    
                    
                    Sheets(actvsheet).Select
'If User choses cancel on the Save as screen.
                Else
'Returns to the sheet that was active when the code was started (Makes sure multiple sheets are not still selected when the procedure is over.)

                    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
                    Exit Sub
                End If
        End With
'If the user chooses Cancel to the msgBox, cancels the printing.
    Else
    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
    Exit Sub
    End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End Sub
 
Upvote 0
ranman256 said:
here the flag to print the last sheet is in sheet1.A1
change it to your flag cell.

Code: 
Sub CreatePdf()
Dim wsLast As Worksheet
Dim iShts As Integer, i As Integer, s As Integer
'duplicate sheet 2 to print twice
    Sheets(2).Select
    Sheets(2).Copy After:=Worksheets(Sheets.Count)
'Set wsLast = Worksheets(Sheets.Count)
 
Dim ws As Worksheet
Dim bPrintLast As Boolean
bPrintLast = Worksheets(1).Range("A2").Value
For i = 2 To Worksheets.Count - 1
    If i = Worksheets.Count - 2 And Not bPrintLast Then
      'dont print last sheet
    Else
       Worksheets(i).Select (False)
    End If
Next
 
    'export pdf
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\rpack\Desktop\name test.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True
 
    'delete the copied Sheet2
SetWarnings False
Worksheets(Sheets.Count).Delete
SetWarnings True
End Sub


Private Sub SetWarnings(ByVal pbOn As Boolean)
   Application.DisplayAlerts = pbOn    'turn off sheet compatability msg
   Application.EnableEvents = pbOn
   Application.ScreenUpdating = pbOn
End Sub
Click to expand...
Thank you so much!!
 
Upvote 0
morgoyo said:
Something like this could also work:

VBA Code: 
Sub a()

    Dim fileSave        As Variant
    Dim msg             As Integer
    Dim sheetcount      As Long
    Dim name            As String
    Dim actvsheet       As String
    Dim ws              As Worksheet

Application.ScreenUpdating = False

    actvsheet = ThisWorkbook.ActiveSheet.name
    Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
    Sheets(2).Select
    Sheets(2).Copy after:=Worksheets(2)
    Set ws = Worksheets(3)
    sheetcount = Sheets.Count
   
    For i = 2 To sheetcount
            If i = sheetcount Then
''''''''''''''''''''Put the criteria to include the last sheet here''''''''''''''''''''''''''''''''
                If ThisWorkbook.Sheets("Sheet1").Range("A1") = "yes" Then
                        name = name & _
                            ThisWorkbook.Sheets(i).name & ","
                Else
                End If
            Else
                name = name & _
                        ThisWorkbook.Sheets(i).name & ","
               
            End If
    Next i

    If Len(name) > 1 Then
        name = Left(name, Len(name) - 1)
        Else:

Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
        Exit Sub
   
    End If

Sheets(Split(name, ",")).Select


'Prompts user with an are you sure message. Shows the name of the selected sheets.
    msg = MsgBox("These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
'If User choses ok proceeds with the printing.
    If msg = vbOK Then

        With fileSave
            .InitialFileName = "Desktop\*.pdf"
'FilterIndex for a PDF file is 26 (You can count which row is a file type at when you Save As to get the desired file type's Index number.)
            .FilterIndex = 26
'If user choses OK on the Save as screen.
                If .Show = -1 Then

                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                    Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                   
                   
                    Sheets(actvsheet).Select
'If User choses cancel on the Save as screen.
                Else
'Returns to the sheet that was active when the code was started (Makes sure multiple sheets are not still selected when the procedure is over.)

                    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
                    Exit Sub
                End If
        End With
'If the user chooses Cancel to the msgBox, cancels the printing.
    Else
    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
    Exit Sub
    End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End Sub
Click to expand...
Hi :)

I've tried this and made some changes but now I don't know what to change to delete the duplicated sheets.


What I would like to remove after the file is printed are the sheets: Export Invoice (2), Export Invoice (3), Export Invoice (4),Packing List (2), Packing List (3), Packing List (4).

I've tried changing some values but I'm not quite sure what part of the code is deleting the sheets.

Here is the current code:

VBA Code: 
Sub a()

    Dim fileSave        As Variant
    Dim msg             As Integer
    Dim sheetcount      As Long
    Dim name            As String
    Dim actvsheet       As String
    Dim ws              As Worksheet

Application.ScreenUpdating = False

    actvsheet = ThisWorkbook.ActiveSheet.name
    Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice")
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice (2)")
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice (3)")
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List")
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List (2)")
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List (3)")
    Set ws = Worksheets(3)
    sheetcount = Sheets.Count
    
    For i = 2 To sheetcount
            If i = sheetcount Then
''''''''''''''''''''Put the criteria to include the last sheet here''''''''''''''''''''''''''''''''
                If ThisWorkbook.Sheets("DATA FILLER").Range("E51") = "YES" Then
                        name = name & _
                            ThisWorkbook.Sheets(i).name & ","
                Else
                End If
            Else
                name = name & _
                        ThisWorkbook.Sheets(i).name & ","
                
            End If
    Next i

    If Len(name) > 1 Then
        name = Left(name, Len(name) - 1)
        Else:

Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
        Exit Sub
    
    End If

Sheets(Split(name, ",")).Select


'Prompts user with an are you sure message. Shows the name of the selected sheets.
    msg = MsgBox("This was easy right?    These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
'If User choses ok proceeds with the printing.
    If msg = vbOK Then

        With fileSave
            .InitialFileName = "Desktop\*.pdf"
'FilterIndex for a PDF file is 26 (You can count which row is a file type at when you Save As to get the desired file type's Index number.)
            .FilterIndex = 26
'If user choses OK on the Save as screen.
                If .Show = -1 Then

                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                    Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                    
                    
                    Sheets(actvsheet).Select
'If User choses cancel on the Save as screen.
                Else
'Returns to the sheet that was active when the code was started (Makes sure multiple sheets are not still selected when the procedure is over.)

                    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
                    Exit Sub
                End If
        End With
'If the user chooses Cancel to the msgBox, cancels the printing.
    Else
    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
    Exit Sub
    End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End Sub
 
Upvote 0
damnfabio said:
Hi :)

I've tried this and made some changes but now I don't know what to change to delete the duplicated sheets.


What I would like to remove after the file is printed are the sheets: Export Invoice (2), Export Invoice (3), Export Invoice (4),Packing List (2), Packing List (3), Packing List (4).

I've tried changing some values but I'm not quite sure what part of the code is deleting the sheets.

Here is the current code:

VBA Code: 
Sub a()

    Dim fileSave        As Variant
    Dim msg             As Integer
    Dim sheetcount      As Long
    Dim name            As String
    Dim actvsheet       As String
    Dim ws              As Worksheet

Application.ScreenUpdating = False

    actvsheet = ThisWorkbook.ActiveSheet.name
    Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice")
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice (2)")
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice (3)")
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List")
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List (2)")
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List (3)")
    Set ws = Worksheets(3)
    sheetcount = Sheets.Count
   
    For i = 2 To sheetcount
            If i = sheetcount Then
''''''''''''''''''''Put the criteria to include the last sheet here''''''''''''''''''''''''''''''''
                If ThisWorkbook.Sheets("DATA FILLER").Range("E51") = "YES" Then
                        name = name & _
                            ThisWorkbook.Sheets(i).name & ","
                Else
                End If
            Else
                name = name & _
                        ThisWorkbook.Sheets(i).name & ","
               
            End If
    Next i

    If Len(name) > 1 Then
        name = Left(name, Len(name) - 1)
        Else:

Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
        Exit Sub
   
    End If

Sheets(Split(name, ",")).Select


'Prompts user with an are you sure message. Shows the name of the selected sheets.
    msg = MsgBox("This was easy right?    These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
'If User choses ok proceeds with the printing.
    If msg = vbOK Then

        With fileSave
            .InitialFileName = "Desktop\*.pdf"
'FilterIndex for a PDF file is 26 (You can count which row is a file type at when you Save As to get the desired file type's Index number.)
            .FilterIndex = 26
'If user choses OK on the Save as screen.
                If .Show = -1 Then

                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                    Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                   
                   
                    Sheets(actvsheet).Select
'If User choses cancel on the Save as screen.
                Else
'Returns to the sheet that was active when the code was started (Makes sure multiple sheets are not still selected when the procedure is over.)

                    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
                    Exit Sub
                End If
        End With
'If the user chooses Cancel to the msgBox, cancels the printing.
    Else
    Sheets(actvsheet).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
    Exit Sub
    End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End Sub
Click to expand...
hi, try this:

VBA Code: 
Sub b()

    Dim fileSave        As Variant
    Dim msg             As Integer
    Dim sheetcount      As Long
    Dim name            As String
    Dim actvsheet       As String
    Dim tempname        As String
    
Application.ScreenUpdating = False

    actvsheet = ThisWorkbook.ActiveSheet.name
    Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
    
    For i = 1 To 3
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice")
    
    tempname = tempname & _
                ActiveSheet.name & ","
    
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List")
    tempname = tempname & _
                ActiveSheet.name & ","
    
    Next i
    
    tempname = Left(tempname, Len(tempname) - 1)

    sheetcount = Sheets.Count
    
    For i = 2 To sheetcount
            If i = sheetcount Then
''''''''''''''''''''Put the criteria to include the last sheet here''''''''''''''''''''''''''''''''
                If ThisWorkbook.Sheets("DATA FILLER").Range("E51") = "YES" Then
                        name = name & _
                            ThisWorkbook.Sheets(i).name & ","
                Else
                End If
            Else
                name = name & _
                        ThisWorkbook.Sheets(i).name & ","
                
            End If
    Next i


    If Len(name) > 1 Then
        name = Left(name, Len(name) - 1)
        Else:

Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
            Sheets(actvsheet).Select
Application.DisplayAlerts = True
        Exit Sub
    
    End If

Sheets(Split(name, ",")).Select


'Prompts user with an are you sure message. Shows the name of the selected sheets.
    msg = MsgBox("This was easy right?    These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
'If User choses ok proceeds with the printing.
    If msg = vbOK Then

        With fileSave
            .InitialFileName = "Desktop\*.pdf"
'FilterIndex for a PDF file is 26 (You can count which row is a file type at when you Save As to get the desired file type's Index number.)
            .FilterIndex = 26
'If user choses OK on the Save as screen.
                If .Show = -1 Then

                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                    Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                    
                    
                    
'If User choses cancel on the Save as screen.
                Else
'Returns to the sheet that was active when the code was started (Makes sure multiple sheets are not still selected when the procedure is over.)


Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
                    Sheets(actvsheet).Select
Application.DisplayAlerts = True
                    Exit Sub
                End If
        End With
'If the user chooses Cancel to the msgBox, cancels the printing.
    Else

Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
    Sheets(actvsheet).Select
Application.DisplayAlerts = True
    Exit Sub
    End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
Sheets(actvsheet).Select
Application.DisplayAlerts = True
End Sub
 
Upvote 0
Solution
morgoyo said:
hi, try this:

VBA Code: 
Sub b()

    Dim fileSave        As Variant
    Dim msg             As Integer
    Dim sheetcount      As Long
    Dim name            As String
    Dim actvsheet       As String
    Dim tempname        As String
   
Application.ScreenUpdating = False

    actvsheet = ThisWorkbook.ActiveSheet.name
    Set fileSave = Application.FileDialog(msoFileDialogSaveAs)
   
    For i = 1 To 3
    Sheets("Export Invoice").Select
    Sheets("Export Invoice").Copy after:=Worksheets("Export Invoice")
   
    tempname = tempname & _
                ActiveSheet.name & ","
   
    Sheets("Packing List").Select
    Sheets("Packing List").Copy after:=Worksheets("Packing List")
    tempname = tempname & _
                ActiveSheet.name & ","
   
    Next i
   
    tempname = Left(tempname, Len(tempname) - 1)

    sheetcount = Sheets.Count
   
    For i = 2 To sheetcount
            If i = sheetcount Then
''''''''''''''''''''Put the criteria to include the last sheet here''''''''''''''''''''''''''''''''
                If ThisWorkbook.Sheets("DATA FILLER").Range("E51") = "YES" Then
                        name = name & _
                            ThisWorkbook.Sheets(i).name & ","
                Else
                End If
            Else
                name = name & _
                        ThisWorkbook.Sheets(i).name & ","
               
            End If
    Next i


    If Len(name) > 1 Then
        name = Left(name, Len(name) - 1)
        Else:

Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
            Sheets(actvsheet).Select
Application.DisplayAlerts = True
        Exit Sub
   
    End If

Sheets(Split(name, ",")).Select


'Prompts user with an are you sure message. Shows the name of the selected sheets.
    msg = MsgBox("This was easy right?    These documents will be printed as PDF " & Chr(10) & Replace(name, ",", Chr(10)), vbQuestion + vbOKCancel)
'If User choses ok proceeds with the printing.
    If msg = vbOK Then

        With fileSave
            .InitialFileName = "Desktop\*.pdf"
'FilterIndex for a PDF file is 26 (You can count which row is a file type at when you Save As to get the desired file type's Index number.)
            .FilterIndex = 26
'If user choses OK on the Save as screen.
                If .Show = -1 Then

                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                    Quality:= _
                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
                   
                   
                   
'If User choses cancel on the Save as screen.
                Else
'Returns to the sheet that was active when the code was started (Makes sure multiple sheets are not still selected when the procedure is over.)


Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
                    Sheets(actvsheet).Select
Application.DisplayAlerts = True
                    Exit Sub
                End If
        End With
'If the user chooses Cancel to the msgBox, cancels the printing.
    Else

Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
    Sheets(actvsheet).Select
Application.DisplayAlerts = True
    Exit Sub
    End If
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets(Split(tempname, ",")).Delete
Sheets(actvsheet).Select
Application.DisplayAlerts = True
End Sub
Click to expand...
Hi :)

This worked perfectly!

Thank you SO MUCH for your help!
 
Upvote 0
You must log in or register to reply here.

Similar threads

V
  • Question
Print to PDF in VBA
Replies
0
Views
59
visheshkotha
V
T
  • Question
VBA PDF Print
Replies
2
Views
338
Fluff
Fluff
V
  • Question
Excel VBA - How to modify my code to include a command that prints data to PDF
Replies
1
Views
61
VanGirl
V
C
  • Solved
VBA Print to PDF Macro (with specific file name and type)
Replies
2
Views
277
CHOPDOG
C
I
  • Question
VBA - Printing Records to Single PDF
Replies
1
Views
1K
davesexcel
davesexcel

Forum statistics

Threads
1,214,853
Messages
6,121,935
Members
449,056
Latest member
denissimo

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top