Converting Hidden Sheets to PDF

[sabbuck]

Hi All,

I have 5 Sheets in a workbook named "Loan Appraisal Form", "Loan DSR", "RLEs", "Welcome" and "Main Menu".

All sheets are protected with some cells unlocked for editing. The "Main Menu" sheet is the only sheet visible. "Loan Application Form" and "Loan DSR" are only visible when a button for each is clicked on the "Main Menu".

"Welcome" and "RLEs" are always very hidden.

I want to put a button on the "Main Menu" sheet so that when its clicked the "Loan Appraisal Form" and "Loan DSR" convert to one PDF document.

Is this possible?

 

[John_w]

Try this. It creates a file named "Loan.pdf" in the same folder as the macro workbook.

Public Sub Create_Loan_PDF()

    Dim currentSheet As Worksheet
    
    Application.ScreenUpdating = False
    With ThisWorkbook
        Set currentSheet = .ActiveSheet
        .Worksheets("Loan Appraisal Form").Visible = xlSheetVisible
        .Worksheets("Loan DSR").Visible = xlSheetVisible
        .Worksheets(Array("Loan Appraisal Form", "Loan DSR")).Select
        .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Path & "\Loan.pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        .Worksheets(Array("Loan Appraisal Form", "Loan DSR")).Visible = xlSheetHidden
        currentSheet.Select
    End With
    Application.ScreenUpdating = True
    
End Sub

 

[sabbuck]

That works perfectly. Thank you so much for your help.