[ Karo @ 17.01.2021. 10:24 ] @
Upitanju je najobicnija popisna lista koja moze da ima 30-300 ili 3000 unosa Code: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("F").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .PrintOut .Columns("F").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub ovo radi ali polovicno ostaju nepopunjeni redovi za stampu Idelano bi bilo da se pomocu VBA selektovane celije koje nemau unos (nevide se) nestamapju |