Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Macro da posalje sve sheet-ove na printer

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

[ Pregleda: 1581 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

CoyoteKG

Član broj: 70939
Poruke: 2763



+6818 Profil

icon Macro da posalje sve sheet-ove na printer15.08.2011. u 10:59 - pre 112 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

Ivek33

Član broj: 66174
Poruke: 2817

Sajt: www.ic.ims.hr


+60 Profil

icon Re: Macro da posalje sve sheet-ove na printer17.08.2011. u 08:31 - pre 112 meseci
probaj vidjeti attach i macro kod na ovom linku
http://forums.techguy.org/busi...need-macro-print-multiple.html
 
Odgovor na temu

CoyoteKG

Član broj: 70939
Poruke: 2763



+6818 Profil

icon Re: Macro da posalje sve sheet-ove na printer17.08.2011. u 12:43 - pre 112 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

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

[ Pregleda: 1581 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.