[es] - Macro da posalje sve sheet-ove na printer

anon70939

Član broj: 70939
Poruke: 2823

+6883 Profil

Macro da posalje sve sheet-ove na printer

^{15.08.2011. u 10:59 - pre 154 meseci}

Interesuje me kako bih mogao da podesim macro da kada mi obavi neki autofilter, da pusti automatski na neki stampac koji mi nije inace default, a i nalazi mi se sherovan sa drugog racunara.
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.

Odgovor na temu

anon70939

Član broj: 70939
Poruke: 2823

+6883 Profil

Re: Macro da posalje sve sheet-ove na printer

^{17.08.2011. u 12:43 - pre 154 meseci}

uh, to je nesto prekomplikovano jer zeli da stampa samo odredjene sheetove i ima dugmice da bira stampac i sve ostalo. Meni je samo potrebno da kliknem dva klika na fajl, ono "update" ako mora i da makro odradi formatiranje i odmah i stampanje bez ikakvog dodatnog kliktanja.

Ali uspeo sam. Isao sam na record macro, kliknuo rucno sta sam hteo, zavrsio macro, video kako je to snimio i iskopirao posle prethodnog macro-a. Evo kako sad izgleda

Citat:

Sub Borderi()
'
' Borderi Macro
' Macro recorded 15.08.2011 by deco01.st24
'

'
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

Application.ActivePrinter = _
"\\gfw232\HP Business Inkjet 2300 PCL 6 on Ne05:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
"\\gfw232\HP Business Inkjet 2300 PCL 6 on Ne05:", Collate:=True

End Sub

Odgovor na temu