< návrat zpět

MS Excel


Téma: Tisk aktuálního výběru pomocí VBA rss

Zaslal/a 16.2.2017 8:40

Dobrý den,

mohl bych zeptat, zda by někdo nevěděl, jestli by šel napsat kód ve VBA, který by uměl po stisku tlačítka vybrat dřive pojmenovanou oblast buněk, když by jméno oblasti bylo uvedeno v konkrétní buňce (např. "A1") a následně vyvolat tiskové menu (Ctrl + P), kde už by bylo přednastaveno, že je potřeba vytisknout aktuální výběr?

Záznamník maker mi v tomto případě bohužel moc nepomohl.

Mnohokrát děkuji za případné tipy.

Zaslat odpověď >

#034961
avatar
Lze k tomu využít příkaz Application.Dialogs(xlDialogPrint)...
P.

Např.:
Sub Tisknout_pojmenovanou_oblast()
Dim tisknout As Variant

Sheets("List1").Select
Sheets("List1").Range(Sheets("List1").Range("A1").Value).Select
tisknout = Application.Dialogs(xlDialogPrint).Show(, , , , , , , , , , , 1)

End Sub
citovat
#034962
avatar
Děkuji mnohokrát. Příkaz Application.Dialogs(xlDialogPrint) jsem neznal. Funguje to bezvadně a přesně podle mých představ.citovat
#034965
avatar
Jen dodatek. Pokud má i buňka se seznamem oblastí pro tisk název (ZdrojTisk), pak:

Sub TiskOblastiSDialogem()

With Application
.Goto Range(Range("ZdrojTisk").Value)
.Dialogs(xlDialogPrint).Show Arg12:=1
End With

End Sub

Sub TiskOblastiBezDialogu()

Range(Range("ZdrojTisk").Value).PrintOut

End Sub
citovat
#034966
avatar
Děkuji mnohokrát za doplnění a užitečné informace.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09