Pozdrav

Kod:

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


Ja sam koristio kao štampac "Microsoft XPS Document Writer on Ne00:" jer nemam štampaca
Meni kod radi stim sto moras unijeti tacan naziv stampaca da bi kod radio.

Hvala za kod. Kada uzmem tacan naziv iz devices i printers on mi crveni. Nisam rekao da mi je to stampac na drugom racunaru, da li treba da navodim i to?

A kako da namestim stampac koji nije namesten na default printer??

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.

Zasto jednostavno ne snimis macro kao niz postupaka koje radis pri stampanju sa razlicitim stampacima, pa onda svakom button-u dodelis odgovarajuci macro?
Mislim da je to mnogo lakse resenje i nema nagadjanja oko naziva stampaca i lokacija...

Resio sam, iskoristio sam kod od @jaskojsako, a video sam kako ga racunar vidi kada sam pravio macro kao sto je rekao @rudy_kv, hvala ljudi, reseno!