Required A VBA

[alihamza2247]

I need some help about excel vba.
I want to print some specific excel hidden sheets with selected cells range via VBA.for example i"m working in sheet1, and sheet2,sheet3 and sheet4 are hidden so I want to make some buttons in sheet1 for printing those sheets with cell range (A1:N30).so please provide me an VBA for doing this.

Thanks

 

[mse330]

Welcome to Mr. Excel !

Try the below VBA code assuming the workbook is not password protected

Sub Print_Sheets()
Dim ws As Worksheet, Chk As Boolean
Application.ScreenUpdating = False
For Each ws In Worksheets(Array("Sheet1", "Sheet2", "Sheet3")) ' <-- just include the sheets you wnat to print here
    If ws.Visible = False Then
        ws.Visible = xlSheetVisible
        Chk = True
    End If
    ws.Range("A1:N30").PrintOut
    If Chk = True Then
        ws.Visible = xlSheetHidden
        Chk = False
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[alihamza2247]

Re: Required A VBA for Printing a Hidden Excel Sheet

Sub Print_Sheets()
Dim CurStat As Variant
For Each ws In Worksheets(Array("Daily Sales")) ' <-- just Replace All ("Daily Sales") with your sheet name which you waat to print'
If Not Sheets("Daily Sales").Visible Then
CurStat = Sheets("Daily Sales").Visible
Sheets("Daily Sales").Visible = xlSheetVisible
Range("A1:N30").Select
Sheets("Daily Sales").PageSetup.printarea = "A1:N30"
Sheets("Daily Sales").PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("Daily Sales").Visible = CurStat
End If
Next
End Sub

 

[alihamza2247]

[h=2]Required A VBA for Printing a Hidden Excel Sheet[/h]thanks bro for your kind response
i used above VBA and works perfectly

 

[mse330]

Glad to help Ali & thanks for the feedback