Visual Basic for Applications
uređuje Dragan Grbić

Privremena promena aktivnog štampača

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Ako često menjate štampače u radnom okruženju, treba da znate i kako to da izvedete kroz VBA.

U ambijentu mreže, korisnik je često u prilici da bira na koji će štampač poslati neki sadržaj. Ako se štampa u Office aplikaciji automatizuje, onda se javlja mogući problem ukoliko je aktivni štampač različit od potrebnog, jer izbor atributa štampe je po pravilu povezan sa modelom štampača. Evo grupe VBA makroa koji omogućuju privremenu promenu aktivnog štampača, do kraja izvršenja posla.

Dim ProsliStampac As String

Sub SpecijalnaStampa()

PromeniStampac "Epson LQ-570 on lpt1:"

    ' ovde ide neki kod
    ' koji koristi novi štampač

VratiStampac

End Sub


Sub PromeniStampac(NoviStampac As String)

' sačuvaj podatke o prošlom štampaču
ProsliStampac = Application.ActivePrinter

'promeni default štampač
Application.ActivePrinter = NoviStampac

MsgBox "Aktivni štampač promenjen sa '" _
  & ProsliStampac & "' na '" & _
  Application.ActivePrinter & "'."

End Sub

Sub VratiStampac()

If Application.ActivePrinter <> ProsliStampac Then
    Application.ActivePrinter = ProsliStampac
      MsgBox "Aktivni štampač vraćen na '" _
      & Application.ActivePrinter & "'."
End If

End Sub

Obratite pažnju na tačnu sintaksu poziva: neophodno je da u imenu štampača tačno navedete na kom portu se on nalazi. Dakle, napisaćete "microsoft fax on fax:", "HP 5MP on //server/spooler" ili "Moj mali laser on LPT1:". Tačan naziv štampača i port na kome se nalazi možete proveriti u meniju Start/Settings/Printers, u dijalogu Properties svakog štampača.