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

Did you know Excel offers Filter by Selection?
Add the AutoFilter icon to the Quick Access Toolbar. Select a cell containing Apple, click AutoFilter, and you will get all rows with Apple
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

D
  • Solved
Macro to create a PDF of an external excel workbook
2
Replies
10
Views
160
mumps
mumps
B
  • Question Question
Using VBA and Acrobat Add-in to export sheet as PDF
Replies
2
Views
428
Basher515
B
T
  • Question Question
Printing to PDF use VBA - Was working but now different sheets are different widths
Replies
1
Views
307
Tanquen
T
P
  • Solved
Export Worksheets into a Single PDF using Criteria on each Worksheet
Replies
7
Views
712
jolivanes
jolivanes
V
  • Question Question
Print to PDF in VBA
Replies
0
Views
533
visheshkotha
V

Forum statistics

Threads
1,224,816
Messages
6,181,138
Members
453,021
Latest member
Justyna P

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