MS Excel

Dobrý den. Několikrát do měsíce musím tisknout asi 40 listů, ve kterých jsou stránky 1 až cca 25.Chtěl bych
je tisknout za pomoci metody PrintOut, kde však musím kromě jiných,uvést parametr od... (stránky č.1) do...(tady si nevím rady).Toto číslo bude jako proměnná. Vybrat zaplněnou oblast dokážu, ale nevím jak to dosadit do toho druhého parametru. Předem děkuji za pomoc.

Zaslat odpověď >

MePExG(27.6.2016 15:48)#031894

Robím to pomocou dvoch vzorcov. Prvý do stĺpca A na každý riadok dám podmienku, ktorá testuje vyplnenie stĺpca D a keď je v D prílušnom riadku hodnota, vráti číslo riadku.
a5=IF(d5<>"";row();0)
Okrem toho mám v A1=max(a3:a1000000) a túto hodnotu nastavím ako spodný okraj tlačovej oblasti, týmto príkazom vo VBA.
ActiveSheet.PageSetup.PrintArea = "c3:m" & range("A1")

Takto sa vždy nastaví každá strana sama volaním

Call NastTlačObl("c3:m", ActiveSheet.Range("A1"))

makra

Sub NastTlačObl(odazstlp As String, poriadok As Double)
1)), poriadok)
ActiveSheet.PageSetup.PrintArea = odazstlp & poriadok
End Subcitovat

Hav-Ran(27.6.2016 16:29)#031896

Ja si dám pomocou vzorca ešte z Excelu4 vyznačiť počet strán napr.do bunky B1 týmto makrom:

Sub PocetStran()
Range("B1").Value = _
ExecuteExcel4Macro("Get.Document(50)")
End Sub

Ak to dáš pod klávesovú skratku, môžeš to smerovať aj do MsgBoxu a podobne.citovat

xlnc(27.6.2016 22:15)#031897

Asi si vykládám zadání jinak. Deset maker na něco, co umí dialog Vzhled stránky na záložce Záhlaví a zápatí?citovat

xlnc(27.6.2016 22:21)#031899

Dodatek: Excel nemá potřebu tisknout "nezaplněnou oblast", to jen, pokud jste si ručně naformátoval víc, než je třeba.citovat

Téma: Zjištění čísla posledné zaplněné stránky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje