< návrat zpět
MS Excel
Téma: Tisk aktuálního výběru pomocí VBA 
Zaslal/a Poseidon 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.
Pavlus(16.2.2017 9:50)#034961 
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 SubcitovatPoseidon(16.2.2017 9:58)#034962 Děkuji mnohokrát. Příkaz Application.Dialogs(xlDialogPrint) jsem neznal. Funguje to bezvadně a přesně podle mých představ.
citovatxlnc(16.2.2017 13:16)#034965 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 SubcitovatPoseidon1(16.2.2017 15:38)#034966 Děkuji mnohokrát za doplnění a užitečné informace.
citovat
RSS nejnovější články