Ovaj kod i radi da pokrene stampac koji je naveden u kodu bez obzira
koliko imali stampaca prikljuceni i koji je po default.
Dim sCurrentPrinter As String
Const MyPrinter As String = "Microsoft XPS Document Writer on Ne00:"
sCurrentPrinter = Application.ActivePrinter
Application.ActivePrinter = MyPrinter
ActiveSheet.PrintOut '
Application.ActivePrinter = sCurrentPrinter
Moras unijeti tacan naziv stampaca:
Evo kod da ti ocita tacan naziv stampaca koji ces unijeti u kod za stampanje.
Ako ih imas vise stavi stampac na koji zelis da stampas kao defaultni ocitaj njegov tacan naziv i upisi u kod
MsgBox Application.ActivePrinter
Ako je stampac na drugom racunaru (lokalnoj mrezi) treba vjerovatno upisati i ip adresu i naziv,nisam probao jer nemam priliku da probam.
Jasmin