Izbira tiskalnika

[zvonem]

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?

[admin]

Pozdravljeni,

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

Ali ste iskali to?