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