[ mmisic @ 16.09.2008. 23:01 ] @
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 |