» Poradna » Programy

Dotaz na sestavu v access

 |   |  Android Chrome 75.0

Prosím, nevíte někdo, jak napsat kód ve vba, který nastaví výšku záhlaví sestavy v access? Jedná se o tisk do tiskopisu, kde se tiskne pokaždé na další řádek. Určení čísla řádku bych vyřešil přes výběr z rozevíracího seznamu ve formuláři např.if řádek = 1 then...End IfK vytištění v tomto případě do prvního řádku.Netuším však, jak zadat příkaz pro výšku záhlaví sestavy.Děkuji za radu

Odpovědi na otázku

 |   |  Microsoft Windows 10 Chrome 83.0.4103.116

výškou asi myslíš pozici na výšku na kterou to má vytisknout a ne velikost písma?zkus toto zajímá tě TopMargin, měl by stačit výpočet horní okraj + (řádek*výška řádku) jen to bude asi v PixelechSub RunReport( _ Optional lLeftMargin As Long = 720, _ Optional lRightMargin As Long = 720, _ Optional lTopMargin As Long = 1080, _ Optional lBottomMargin As Long = 1080) Dim prt As Printer Dim rpt As Report DoCmd.OpenReport "ReportName", acPreview, , , acHidden Set rpt = Reports("ReportName") Set prt = rpt.Printer With prt .LeftMargin = lLeftMargin .RightMargin = lRightMargin .TopMargin = lTopMargin .BottomMargin = lBottomMargin End With Set rpt.Printer = prt DoCmd.Close acReport, rpt.Name, acSaveYes Set rpt = Nothing 'print DoCmd.OpenReport "Report Name"End Subpřípadně je možno udělat si pomocné pole kde budeš mít ten margin pro jednotlivé řádky a nastavovat pomocí hodnoty z pole s indexem řádky.Pro možnou automatizaci, by bylo možné vytvořit tabulku pro podobné reporty, kde by by se ukládala poslední použitá řádka pro report a kolik řádek tam je, po naplnění by se poslední řádka znulovala a začalo by se s další stránkou.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Android Chrome 75.0

Děkuji za odpověď, zítra se o to pokusím.Dnes jsem to řešil.V sestavě jsem vytvořil pomocný popisek a ten pomocíMe.Popisek.Heiglt = 567*velikost v cm zvětšuji na výšku a tím zvětšují i výšku záhlaví.Váš návrh se mi jeví ale zajímavější a tak se o to pokusím.Ještě jednou děkuji.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 10 Chrome 83.0.4103.116

No tak výšku záhlaví definujte normálně. Ta se zbytkem tisku přece nijak nesouvisí...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Android Chrome 75.0

Ale souvisí. Posune textová pole v těle sestavy.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 10 Chrome 83.0.4103.116

Nerozumím. Kam je posune?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 10 Chrome 83.0.4103.116

Tedy předpokládám, že VBA kód tisku píšete v události BODY, nebo jak to tam je. Potom se to automaticky vždycky vytiskne až za hlavičkou...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Android Chrome 75.0

Když zvětším výšku záhlaví, tak se při tisku vytisknou údaje v těle sestavy níže.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 10 Chrome 83.0.4103.116

Aha, já jsem z toho vůbec nepochopil, že máte výšku záhlaví proměnnou. To bych asi musel vidět, abych to pochopil...

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Záhlaví


Určitě si přečtěte

Je to dobré, cetky z AliExpressu budou nejspíše relativně levné i v roce 2021

Je to dobré, cetky z AliExpressu budou nejspíše relativně levné i v roce 2021

** V roce 2021 začneme platit DPH i u laciného zboží z asijských e-shopů ** Daň ale budeme většinou platit už na e-shopech ** Nemusíte se bát zdlouhavého a drahého celního řízení

Jakub Čížek | 74

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

Za hranicemi Chromu: 13 nejzajímavějších prohlížečů, které „nikdo“ nepoužívá

** Šesti nejpoužívanějším prohlížečům patří 94 % trhu ** Různé „klony“ Chromu slibují lepší funkce nebo jiný design ** Také Firefox má řadu zajímavých odnoží

Lukáš Václavík | 38

Nejlepší programy z roku 2000: Další várka zapomenutých legend, které jste měli v PC

Nejlepší programy z roku 2000: Další várka zapomenutých legend, které jste měli v PC

** Pokračujeme ve vzpomínání na prehistorické programy ** Pročetli jsme vaše tipy v diskuzi ** A všechny ty vykopávky spustili na Windows 2000

Jakub Čížek | 72


Aktuální číslo časopisu Computer

Megatest SSD s kapacitou 1 TB

Srovnávací test robotických vysavačů

Vybíráme nejlepší telefony na trhu

Jak zlepšit zvuk televize