Excel uložit jako, tisk Vyřešeno

[cmuch]

Ahoj,
potřebuji radu, respektive 2.
1. Potřeboval bych zobrazit okno "uložit jako" s přednastaveným názvem souboru.
Udělal jsem toto, ale to mi nějak nefunguje

Kód: Vybrat vše

Sub UlozJako()
'
    Application.GetSaveAsFilename Range("A12") & " - " & Range("E12") & ".xls", _
                          fileFilter:="Excel (*.xls), *.xls"
End Sub

2. A pak zobrazit okno pro výběr tiskárny pro tisk

Docílil jsem toho pomocí sendkeys, ale lze to i jinak?

Kód: Vybrat vše

Sub Tisk()
'
    Application.SendKeys ("^p")  'ctrl plus p - zobrazení tisku
End Sub

Děkuji.

[Reklama]

[Poki]

Dialog lze zobrazit takto:

Kód: Vybrat vše

Application.Dialogs(xlDialogPrint).Show

[cmuch]

Díky to je dobré,
a zároveň i tak jsem udělal to zobrazení okna "uložit jako" s tím, že to uložení proběhne korektně.

Kód: Vybrat vše

Application.Dialogs(xlDialogSaveAs).Show Range("A12") & " - " & Range("E12") & ".xls"