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 Macro3()
'
' Macro3 Macro
' Macro recorded 5.12.2006 by željko
'

'
    Range("A1:E25").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$E$25"
    Range("F12").Select
    ActiveCell.FormulaR1C1 = "q"
    Range("G14").Select
    ActiveSheet.PageSetup.PrintArea = ""
    Range("F13").Select
End Sub