Print only selected sheets

[punit]

Hello Everyone !

I have just started to use VB in excel.
I have 5 sheets containing data but now from these 5 sheets i don't want that anyone can print sheet2 because its my main sheet ( This sheet contains Pivot table in it).

I have searched and tried many code from internet but didn't work any one of them for me.

So please if any one can freshly guide me step by step, i will be greatful.

Other than that also i want to know if i can hide only the tabs in excel and not sheets

Thanx in Advanced
Punit.

 

[VoG]

Try like this

Sub prt()
Sheets(Array("Sheet1", "Sheet3", "Sheet4", "Sheet5")).PrintOut
End Sub

You can hide ALL the tabs like this

ActiveWindow.DisplayWorkbookTabs = False

 

[Sektor]

Variable "sheetToSkip" keeps sheet name which you do want to be printed. Adjust to your needs. This code skips chart sheets if they exist in your workbook.

Sub PrintSheets()

    Dim sheetToSkip As String, i As Integer
    Dim sheet As Object, arr() As Variant
    
    sheetToSkip = "Sheet1"
    
    For Each sheet In Sheets
        If TypeOf sheet Is Worksheet Then
            i = i + 1
            ReDim Preserve arr(1 To i)
            arr(i) = sheet.Name
        End If
    Next

    Sheets(arr).PrintOut

End Sub

 

[punit]

Hello,

First of all thanx ( to VoG )for quick reply.

This didn't work for me

Sub prt() Sheets(Array("Sheet1", "Sheet3", "Sheet4", "Sheet5")).PrintOut End Sub

 

[VoG]

You need to use the actual names of the sheets.

 

[punit]

You need to use the actual names of the sheets.

Hello

Maybe i am making some mistake.
Is it possible if you can apply code and export it and than i will import in vbcode editor ?

Because i am very new with all this things.

Thanx

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor. Select Module from the Insert Menu. Paste in

Sub prt()
Sheets(Array("Sheet1", "Sheet3", "Sheet4", "Sheet5")).PrintOut
End Sub

Change Sheet1 and so on to the actual names of your sheets. Press ALT + Q to close the code window.

Press ALT + F8 then double click prt