Button za stampu

Treba da odstampam i hocu to da napravim preko button-a, koji kod da unesem da odstampa sheet i da u kodu unesem na koji stampac
da se stampa jer ih ima vise??

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.

Potpis

Jasmin

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.

Potpis

Jasmin

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...

Potpis

VICTORIA CONCORDIA CRESCIT