2 makra pro 2 různé tiskárny

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Zamčeno
zabi
Level 3
Level 3
Příspěvky: 564
Registrován: 29 pro 2008 16:54
Bydliště: Zlínsky kraj

2 makra pro 2 různé tiskárny

Příspěvek od 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
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: 29 srp 2008 16:49

Re: 2 makra pro 2 různé tiskárny

Příspěvek od 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
Level 3
Level 3
Příspěvky: 564
Registrován: 29 pro 2008 16:54
Bydliště: Zlínsky kraj

Re: 2 makra pro 2 různé tiskárny

Příspěvek od zabi »

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

Diky mockrat.
Zamčeno
  • Podobná témata
    Odpovědi
    Zobrazení
    Poslední příspěvek

Zpět na „Kancelářské balíky“