Jak udělám makro na podmíněný výběr tiskárny? *

[Snekment]

Dobrý den ,potřebuji makro ,které odkáže vytisknou vybrane bunky na jednu tiskárnu ,ale pokud ji nenajde tak na jinou a pokud ani tu ne tak na třetí. Jde mi o tu podmínku ,která řekne "tiskni na tiskarnu číslo 1 - pokud ji nenajdeš pak tiskni na tiskarnu číslo 2 a pokud ani tu nenajdeš pak tiskni na tiskárnu číslo 3".
Půjde to nějak ?
Děkuji

[Mirdad69]

Zdravím,
na listu "Printer" do sloupce A bych si vydefinoval seznam tiskáren a pak pro nastavení tiskárny použil tento kód:

Kód: Vybrat vše

Sub Makro1()
On Error Resume Next
I = 1
Do While Not (IsEmpty(Cells(I, 1)))

Application.ActivePrinter = Sheets("Printer").Cells(I, 1).Value
If Err.Number = 0 Then
    GoTo label1
Else
    Err.Clear
    I = I + 1
End If
Loop

label2:
    MsgBox "Tiskárna neexistuje"
    Exit Sub
label1:
    MsgBox "Tiskárna " & Application.ActivePrinter & " byla vybrána"
End Sub

[Snekment]

Děkuji za odpověď zkusím a dám vědět . děkuji