Izbira tiskalnika
Izbira tiskalnika
Matjaž! V starem forumu sva problem izbire tiskalnika z makrojem že rešila. Samo, ni se sesul samo stari forum, tudi moj računalnik je šel rakom žvižgat in z njim vsi zapiski. Če še enkrat na kratko obnovim situacijo: v makroju imam vpis podatkov v neko bazo, izpis na tiskalnik in shranitev dokumenta. In v tem srednjem delu, izpis na tisklanik, bi rad postavil možnost izpisa dokumenta na drug tiskalnik, ne ravno vselej na privzeti. Kako se že glasi tisti ukaz za izbiro tiskalnika?
Pozdravljeni,
Stare tematike se na žalost ne spominjam, tako da za natančno kodo ne vem, prilagam pa vam kodo, ki spremeni privzeti tiskalnik:
Ali ste iskali to?
Stare tematike se na žalost ne spominjam, tako da za natančno kodo ne vem, prilagam pa vam kodo, ki spremeni privzeti tiskalnik:
Koda: Izberi vse
' www.matjazev.net
' 06.12.2005
Sub NatisiniNaDrugTiskalnik(ImeTiskalnika as String)
Dim StarTiskalnik As String
' zapomnim si trenutno privzeti tiskalnik
StarTiskalnik = Application.ActivePrinter
' zamenjam ga z izbranim
Application.ActivePrinter = ImeTiskalnika
' Natisnem trenutni list (to je kot primer)
ActiveSheet.PrintOut
' povrnem prejšnji tiskalnik
Application.ActivePrinter = StarTiskalnik
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator