Samotné nastavenie tlače nebude problém. Ale ak by ste chcel aby to rovno komunikovalo s externým programom a vkladalo mu hneď aj názov súboru, tak to už bude problém. Daný program musí mať dostupné nejaké API rozhranie, a navyše zdarma. Do tohto dobrodružstva sa púšťať nebudem.
Ak ide iba o samotné odoslanie, môže to byť jednoduchšie (stačí iba názov tlačiarne), alebo zložitejšie (je potrebný interný názov tlačiarne, teda aj s číslom).
Skúste najskôr či Vám funguje jednoduché makro Pokus. Ak nie, tak treba presedlať na ten zvyšok, kde sa riešia aj interné názvy s predložkou a číslami.
Sub Pokus()
Dim AktTlaciaren As String, NovaTlaciaren As String
AktTlaciaren = Application.ActivePrinter
NovaTlaciaren = "Bullzip PDF Printer"
ActiveSheet.PrintOut Preview:=True, ActivePrinter:=NovaTlaciaren
Application.ActivePrinter = AktTlaciaren
End Sub
Kód s popisom na ten obsiahlejší variant je v prílohe.
Ak ide iba o samotné odoslanie, môže to byť jednoduchšie (stačí iba názov tlačiarne), alebo zložitejšie (je potrebný interný názov tlačiarne, teda aj s číslom).
Skúste najskôr či Vám funguje jednoduché makro Pokus. Ak nie, tak treba presedlať na ten zvyšok, kde sa riešia aj interné názvy s predložkou a číslami.
Sub Pokus()
Dim AktTlaciaren As String, NovaTlaciaren As String
AktTlaciaren = Application.ActivePrinter
NovaTlaciaren = "Bullzip PDF Printer"
ActiveSheet.PrintOut Preview:=True, ActivePrinter:=NovaTlaciaren
Application.ActivePrinter = AktTlaciaren
End Sub
Kód s popisom na ten obsiahlejší variant je v prílohe.
Příloha: 43382_tlacit-docasne-na-inu-tlaciaren.zip (29kB, staženo 28x)
citovat