< návrat zpět
MS Excel
Téma: Makro - tiskové pole 
Zaslal/a Jika 4.10.2010 13:34
Dobrý den,
v programování maker jsem úplný začátečník, ale potřeboval bych poradit jak naprogramovat jeden konkrétní úkol.
V excelu na listu Quality mám několik tabulek, zčehož mám jednu tabulku, kterou mám naformátovanou k tisku. Dále protože někdy zákazník požaduje několik takových tabulek mám vložené makro, které stávající tabulku nakopíruje dolů pod stávající tabulku a vloží na začátek nové tabulky "konec stránky". Otázkou pro mě je jak správně naprogramovat makro, které by ohraničilo tiskové pole takto:
zhora M10 až AD10 a zespoda, aby to vždy protáhlo to tiskové pole až po poslední řádek, který obsahuje vzorec.
Výsledkem bude, že když makrem "naklonuju" 3 tabulky, budu v rychlém tisku tisknout max. 3 tabulky, naklonuju 10 tabulek bude se tisknout 10 tabulek max.
Ideální stav by byl upravit makro tak, aby bylo použitelné na nové tlačítko TISK, kterým by se zobrazilo okno s výběrem tiskárny a už by zde byl nastaven rozsah stránek.
Předem děkuji všem, kdo mi jakkoli poradí.
Poki(4.10.2010 15:05)#002622
Mozna jsem to nepochopil spravne, ale nsledujici kod vybere pozadovanou oblast a zobrazi dialog tisku s nastavenim na tisk vyberu.
Sub tisk()
Dim tisk As Variant
Range(Cells(10, 13), Cells(Cells(65000, 13).End(xlUp).Row, 30)).Select
tisk = Application.Dialogs(xlDialogPrint).Show(, , , , , , , , , , , 1)
End Sub
citovatJika(4.10.2010 15:17)#002624 
Děkuji za rychlou odpověď, avšak makro mi píše chybu Compile Error "Expected function variable". Ještě asi raději upřesním, že v této chvíli mám tiskové pole označené až do konce excelu (cca 22 tis. stránek), stačil by mi tedy skript který najde poslední stránku na které je text a číslo této stránky automaticky vloží do políčka TISK DO.... v dialogovém okně tisku.
citovat Poki(4.10.2010 15:22)#002625 zkuste to ted, upravil jsem puvodni kod
citovatJika(4.10.2010 15:25)#002626 Mnohokráte děkuji za pomoc, překvapivě to nepracuje se samotnou oblastí tisku, ale zvýrazní to danou oblast a pak tiskne jen zvýrazněné tabulky. Ještě jednou děkuji a začnu přemýšet o kurzu Makra v excelu
citovat
RSS nejnovější články