Jak udělám makro na podmíněný výběr tiskárny? *
Napsal: 04 říj 2013 16:16
od 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
Re: Jak udělám makro na podmíněný výběr tiskárny? *
Napsal: 07 říj 2013 13:11
od 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
Re: Jak udělám makro na podmíněný výběr tiskárny? *
Napsal: 07 říj 2013 14:49
od Snekment
Děkuji za odpověď zkusím a dám vědět . děkuji