Da si postavio primer sa podešavanjima, ne bih ja morao da ponovo da ih pravim
Uglavnom, ako se ide preko sakrivanja redova koji su prazni kao što sam napisao makro je dosta jednostavan. Filter već imaš pa se može iskoristiti. Print Area sam postavio i redove da se ponvaljaju na svakoj strani i onda još samo ide komanda PrintPreview ako hoćeš da se uključi pregled pre štampe
Code:
Sub PrintSpec()
'
' Makro koji eliminise blanko redove iz filtera
' i aktivira pregled pre štampe
' P.Jovanovic za elitesecurity.org
'
ActiveSheet.Range("$A$10:$U$164").AutoFilter Field:=2, Criteria1:="<>"
ActiveSheet.PrintPreview
End Sub
Ako hoćeš direktno na štampu onda umesto PrintPrivew ide PrintOut
Code:
Sub PrintSpec()
'
' Makro koji eliminise blanko redove iz filtera
' aktivira stampu
' i na kraju ocisti filter
' P.Jovanovic za elitesecurity.org
'
ActiveSheet.Range("$A$10:$U$164").AutoFilter Field:=2, Criteria1:="<>"
ActiveSheet.PrintOut
' Ukidanje filtera ako se ide direktno na stampu
ActiveSheet.Range("$A$10:$U$164").AutoFilter Field:=2
End Sub
Makro aktiviras preko Alt+F8 ali kako bi bilo efikasinje, možeš da mu dodelis prečicu sa tastature ili dugme za startovanje.
[Ovu poruku je menjao Jpeca dana 26.12.2013. u 14:16 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?