MS Excel

Téma: nastavení tiskárny na kterou se tiskne

Zaslal/a dream2003 3.6.2012 14:10

Dobrý den,

mám vytvořené makro které mi vytiskne všechny neskryté listy na výchozí tiskárnu potřeboval bych, ale jestli by šel upravit aby mi tisknul na konkrétní tiskárnu třeba na portu 192.168.1.1
Sub PrintVisible()
Dim objSheet As Object

For Each objSheet In Sheets
If objSheet.Visible = True Then objSheet.PrintOut
Next objSheet
Sheets("List1").Visible = True
Sheets("List1").Select
End Sub

Zaslat odpověď >

kp57(3.6.2012 21:46)#008722

Zkus spustit záznam makra, pak běž do nabídky Tisk a zvol požadovanou tiskárnu. Ti to ukáže co to chce.
Něco jako
Application.ActivePrinter = "Microsoft XPS Document Writer na Ne00:"citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.