Kako hitro natisniti skrite delovne liste v Excelu?

Če imate delovni zvezek, ki vsebuje številne delovne liste, od katerih so nekateri vidni in drugi skriti, in želite natisniti samo skrite, sledite tem korakom. Ker Excel privzeto ne dovoljuje tiskanja skritih listov, vas bom vodil skozi uporabo preproste kode VBA, da to dosežete:

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno Code.

Koda VBA: Natisnite skrite delovne liste v Excelu

Sub PrintHiddenSheets()
'Updated by Extendoffice 2024/07/15
Dim wSheet As Worksheet
Dim CurStat As Variant
For Each wSheet In ActiveWorkbook.Worksheets
If Not wSheet.Visible Then
CurStat = wSheet.Visible
wSheet.Visible = xlSheetVisible
wSheet.PrintOut
wSheet.Visible = CurStat
End If
Next
End Sub 
  

2. In nato kliknite gumb ali F5 tipko za zagon kode. S tem boste natisnili vse skrite delovne liste v vašem delovnem zvezku.