excel makro pro výběr tiskárny

[václavka]

Prosím poraďte.
Potřebuji vytvořit v excelu makro, které umožní výběr tiskárny při přenesení aplikace na jakýkoli počítač. Makro vytvořené pomocí záznamu funguje pouze ne počítači na němž bylo vytvořeno.

/přesunuto do více odpovídající sekce
/mikel

[vashut]

tohle nefunguje?

Kód: Vybrat vše

ActiveWindow.SelectedSheets.PrintOut

jde asi o nastavení tiskárny jako výchozí kdyžtak tam dej upozornění že tiskárna musí bejt nastavena jako výchozí (start-->tiskárny a faxy-->praví myšítko na tiskárnu-->Nastavit jako výchozí tiskárnu)
kdyby to nefungovalo hoď sem příklad odzkoušim jestly to funguje

[václavka]

dík. Jak jednoduché - v tom je síla.

[mike007]

Jestli myslíš skript, který ti zobrazí nabídku pro výběr tiskárny, tak použij toto :

Pro Excel :

Kód: Vybrat vše

Application.Dialogs(xlDialogPrint).Show

Pro Word :

Kód: Vybrat vše

Application.Dialogs(wdDialogFilePrint).Show