[es] - Makro za printanje na dva pisaca

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.

Profil

^{16.09.2008. u 23:01 - pre 189 meseci}

Imaj jedan vba code ali ne mogu ga nikako nastimati da mi ispravno radi. Naime radi se o sljedecem:

1. Na kompjutor preko USB-a imam prikljucena 2 pisaca
- Pisac Samsung ML 1310 (sluzi mi za printanje virmana)
- Pisac Samsung ML 2010 (sluzi mi za printanje A4 dokumenata)

2. Imam napravljenu radnu knjigu u excelu na kojoj se nalaze 2 radna lista i to:
- Sheet 1 ''A4 dokumenti''
- Sheet 2 ''Virmani''

3. Zelio bih da kreiram 4 makroa koji bi mi omogucili sljedece:
- Kad pokrenem Macro_1 da mi se printa sadrzaj sa lista ''A4 dokumenti'' na printer 2 tj na Samsung ML 2010
- Kad pokrenem Macro_2 da mi se printa sadrzaj sa lista ''virmani'' na printer 1 tj na Samsung ML 1310
- Kad pokrenem Macro_3 da mi se printa sadrzaj putem mreznog racunala na printer 2 tj na Samsung ML 2010
- Kad pokrenem Macro_4 da mi se printa sadrzaj putem mreznog racunala na printer 1 tj na Samsung ML 1310

4. Na netu sam nasao ovaj VBA kod koji moze rijesiti moj problem ali kad promjenim nazive pisaca sa onim koji su kod mene
tj. Samsung ML 2010 umjesto epson-a i Samsung ML 1310 umjesto HP, program mi javlja gresku na mjestu gdje sam primijenio naziv printera

Kod koji sam nasao na netu glasi:

Sub Macro1()
Application.ActivePrinter = "Epson Stylus COLOR ESC/P 2 on LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

End Sub

Sub Macro2() 'za virmane
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$25" ' područje tiskanja
Application.ActivePrinter = "HP LaserJet 4 on LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Sub mrežni()
'putanja za rad u mreži
Application.ActivePrinter = "\\pc22\HP LaserJet 5 auf Ne06:" ' prvi u redosljedu Ne00 -drugi u redosljedu Ne01
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

End Sub

Sub mrežni_1()
'putanja za rad u mreži
Application.ActivePrinter = "\\pc22\Epson Stylus COLOR ESC/P 2 auf Ne07:" ' prvi u redosljedu Ne00 -drugi u redosljedu Ne01
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

End Sub

Molio bih nekoga da mi pomogne. Ne znam u cemu grijesim

MMisic

Prikačeni fajlovi

printanje na dva pisaca.txt - 1.18k

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w81-251.abo.wanadoo.fr.

Profil

Re: Makro za printanje na dva pisaca

^{16.09.2008. u 23:30 - pre 189 meseci}

Re,
za pocetak moras tacno znati gdetise nalaze stampaci na kojim izlazima
( LPT1, Ne01 Ne02 Ne03 itd ) i njihova tacna imena.

Dabih to pronasao mozes koristiti automacko snimanje macro komandi.
Otkucas par reci na radnom listu zatim ukljucis auto-snimanje pa izaberes komandu file-otstampati
izaberes stampac u dialog box, otstampas list i zaustavis auto snimanje.

ALT+F11 i trebaobih da dobijes ovako nesto :

Code:
Application.ActivePrinter = "HP Officejet 6300 series sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"HP Officejet 6300 series sur Ne03:", Collate:=True

Kao sto vidis i sam kod mene je stampac HP na USB izlazu Ne03.
Toliko za pocetak ostalo nije problem.

Pozdrav

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu