hi
when I search macro for save specific hidden sheets as pdf seperately I 'v found this thread for mr. john Converting Hidden Sheets to PDF . it works well , but save all in one page . I would mod the code to save each hidden sheet as pdf seperately .
this the current code after a simple adjusting
when I search macro for save specific hidden sheets as pdf seperately I 'v found this thread for mr. john Converting Hidden Sheets to PDF . it works well , but save all in one page . I would mod the code to save each hidden sheet as pdf seperately .
this the current code after a simple adjusting
VBA Code:
Public Sub Create_Loan_PDF()
Dim currentSheet As Worksheet
Application.ScreenUpdating = False
With ThisWorkbook
Set currentSheet = .ActiveSheet
.Worksheets("ss").Visible = xlSheetVisible
.Worksheets("sh").Visible = xlSheetVisible
.Worksheets(Array("sh", "ss")).Select
.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Path & "\Loan.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
.Worksheets(Array("sh", "ss")).Visible = xlSheetHidden
currentSheet.Select
End With
Application.ScreenUpdating = True
End Sub