Maksimer en rapport

DoCmd.Maximize

Du kan styre rapportens størrelse således.
Docmd.opewnreport....
Reports(ReportName).ZoomControl = 100

Afhængig af hvordan din rapport ser ud, kan du ændre tallet til noget andet. Rapporten vil så blive åbnet i det antal % du indtaster.

Place this on the line after you open the report
DoCmd.RunCommand  acCmdZoom150 'for 150%

Til get the report to fill the screen then you use DoCmd.Maximize but this DOES maximize ALL forms/reports

Jeg tror det du vise mugs kan bruges
men hjælp mig da nybegynder med kode.
min rapport hedder katalog
vil du skrive det helt nøjagtigt for mig.

Flg. åbner rapporten og skriver til skærm samt viser den i 100%:

DoCmd.OpenReport "katalog", acViewPreview, "", "", acNormal
Reports(katalog).ZoomControl = 100

Vil du udskrive direkte til printer, skal den se således ud:

DoCmd.OpenReport "rap1", acViewNormal, "", "", acNormal

DoCmd.OpenReport "rap1", acViewNormal, "", "", acNormal

skal være:

DoCmd.OpenReport "katalog", acViewNormal, "", "", acNormal

Jeg har prøvet at at lave en knap og jeg har også prøvet ved åbning.
men jeg få en fejlmeddelse, "fejl expected: Base or compare or explictor or private"
ved du hvad problemet er???

Kan du sende din db til:

mugs@mail.dk

Så vil jeg se på den.

Send den som zip

Åbn din formular i designvisning. Tag en knap fra din værktøjslinie og højreklik på den:

Egenskaber > Fanen Hændelser og sæt markøren på linien VedKlik > Tryk på de 3 små ... i højre side og du kommer ind i VBA-editoren.

Her indtaster du min kode. Luk herefter på øverste X i højre hjørne og du er tilbage i Designvisning i formularen. Vis > Formularvisning og tryk på din knap.

Hvad sker der nu ?

mosskov ->

Når du vha makro eller andet maximere rapporten medfører det at alle dine formulare også maximeres. Thats life

Du skal gendanne dine formularer når du lukker rapporten eller når du åbner en formular.

Jeg arbejder normalt ikke i makroer men koden i VBA er som mugs og andre kloge hoveder skriver:
docmd.maximize  ' for maximer og
docmd.restore    ' for at gendanne

jeg plejer at lægge disse koder i hændelsen ved aktivering

Private Sub Form_Activate()
  docmd.restore
End Sub

Du kan nok godt lave det i makro'er men du bør lære at kode det i VBA

Niels

Jeg har lavet en knap men får stadigvæk fejl

Compile error
Variable not defined.

her er hvad jeg har skrevet:

Private Sub Kommandoknap23_Click()
DoCmd.OpenReport "Katalog", acViewPreview, "", "", acNormal
Reports(Katalog).ZoomControl = 100

End Sub

Svar til Niels jeg vil gerne lære at programere
har du foreslag til lette bøger jeg begynde med.

Private Sub Kommandoknap23_Click()
DoCmd.OpenReport "Katalog", acViewPreview, "", "", acNormal
Reports("Katalog").ZoomControl = 100

End Sub

Nu virker det
jeg ved ikke hvordan jeg skal dele point ud
jeg håber at i bliver tilfreds med at dele Terry og Mugs
jeg ville gerne give flere point jeg troede ikke dette var svært.

Mosskov

Mosskov

Din pointgivning er helt iorden - for Terry og Mugs var dette et let spørgsmål.

mht programmering (VBA) synes jeg du skal bruge dette forum. Langt de fleste løsningsforslag ender med VBA.
Hvis du - mod forventning - skulle blive mere forviret end godt er, findes der et hav af gode bøger, dog mest på engelsk. Den første jeg købte var "Beginning Access 2000 VBA" fra Wrox. Det er en fin begynderbog, uden at være overfladisk.

Niels

Tak for point. Fordeling er helt OK.
mosskov > Mange af disse små VBA-koder er noget jeg har liggende som eksempler på min PC, da jeg aldrig kan huske hvor alle disse "" og ; og , skal være. Så alt i alt må dette betragtes som et nemt spørgsmål.

Jeg takker for jeres venlighed
og vender tilbage med flere spørgsmål.

på forhånd tak.
Mosskov

selv tak