Takodje, posto mi pri otvaranju vuce podatke iz nekog drugog fajla, da mi ne pita, za ono "Update" nego to da uradi.
Evo nesto sto sam zapoceo, ali mi ne funkcionise
Citat:
Private Sub Workbook_Open()
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("12").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("21").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("22").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("31").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("33").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("32").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("34").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("35").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("64").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("65").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Sheets("66").Select
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "HP 2300 PCL 6 on gfw232"
Application.PrintOut Filename:=""
ActivePrinter = sCurrentPrinter
End Sub
Ovaj auto filter mi radi, samo ne stampa. Pretpostavljam da mi ova komanda za stampu nije uopste OK, posto sam samo iskopirao nesto sto sam izguglao.