Evo kako bi moglo koristeci VBA kod.
Kreiras makro koji štampa listove koji su označeni - ja sam uveo * da označim koji se list štampa a koji
ne ali može bilo šta.
Code:
Sub PrintSheets()
'
' Štampa listove za koje je
' u koloni 1 na prvom listu upisana *
'
' P.Jovanovic 01/11/2006
'
For i = 1 To ThisWorkbook.Sheets().Count - 1
If ThisWorkbook.Sheets(1).Cells(i, 1).Value = "*" Then
ThisWorkbook.Sheets(i + 1).PrintOut
End If
Next i
End Sub
Sada možeš pokrenuti makro i proveriti da li je štampa OK.
Dodatno možeš standardnu štampu (Print dugme ili File/Print) zameniti ovim makrom - prekopiraj sledeći kod za događaj Workbook_BeforePrint
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
PrintSheets
Application.EnableEvents = True
Cancel = True
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?