2 makra pro 2 různé tiskárny Vyřešeno

[zabi]

zdravím,

řeším jeden problémek s makry v Excelu.
Mám 2 listy, ve kterých jsou napsána data. Ve třetím listu jsou pak 2 tlačítka s makry. První tlačítko(makro) vytiskne první list do PDF, druhé tlačítko(makro) vytiskne druhý list na tiskárně.
Co se týče druhého tlačítka, tak to je vše OK, to mi funguje. Avšak pokud nastavím na prvním tlačítku(makru), že se mají data vytisknou na PDF tak se tak nestane a data vyjednou na tiskárně...

Nevíte prosím, jak napsat to první makro, aby se tisk poslal na PDF? Nemůžu na to přijít:-( Mám OF 07

První makro - PDF

Kód: Vybrat vše

Sub Tisk_PDF()

    Worksheets("Data_1").Range("A1:AJ55").PrintOut Copies:=1, Collate:=False
    Application.ActivePrinter = "PDF Creator na Ne07"
   
End Sub


- zde bude zřejmě problémem "Application.ActivePrinter"...

Druhé makro - tiskárna

Kód: Vybrat vše

Sub Tisk_tiskarna()

    Worksheets("Data_2").Range("A1:AJ55").PrintOut Copies:=33, Collate:=True
   
End Sub


[Reklama]

[navstevnik]

Projdi si to prvni makro (tisk do PDF): nejprve je prikaz tisk: Worksheets("Data_1").Range("A1:AJ55").PrintOut ... a pak teprve nastavujes tiskarnu: Application.ActivePrinter = "PDF .... a divis se. Zmen poradi prikazu.
Co se tyce druheho makra, dopln pred prikaz tisk nastaveni fyzicke tiskarny (ziskas z: nabidka Soubor>Tisk: vybrana tiskarna - Typ: a Kde: , pripadne si nahraj makro s nastavenim tiskarny a pouzij radek: Application.ActivePrinter = .... ), nespolehat, ze to nejak vyjde.

[zabi]

Aha ... Diky mockrat. Velmi hloupa chyba, to me vubec nenapadlo...

Diky mockrat.