| |
|
Ausdrucken von geraden und ungeraden Berichtsseiten |
| Kurzinfo: |
 |
Mit Hilfe der Funktionen kann man Berichtsseiten (z.B. einen zweiseitigen Ausdruck) nach gerade und ungerade Seiten ausdrucken lassen |
| Access-Version(en): |
|
Access 97, 2000 und XP |
| Autor: |
 |
K. Maraun |
|
| | | | 
 |
Auf der AP-Access-Tools  Vol.1 finden Sie weitere 320
Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode!
Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler
256 Access-Beispiele mit offenem Code
45 Add-Ins und ActiveX-Komponenten (Freeware)
16 VB-Projekt inkl. Source
321 Tipps & Tricks für Access und VB
Plus 11 Entwicklerversionen (9 davon mit Source!)
Plus 3 Vollversionen und
Plus riesiger Datenpool
Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95! |
| | | |
|
Legen Sie im Bericht im Seitenkopf oder Fuss ein ungebundenen Feld an.
Steuerelementinhalt=[Seiten]
Name: Gesamtseiten
Sichtbar=nein
Code:
Function Geradeseiten()
On Error GoTo Geradeseiten_Err
Dim x, Seitenanzahl As Integer
DoCmd.OpenReport "DeinBericht", acPreview, "", ""
Seitenanzahl = Reports![DeinBericht]![Gesamtseiten]
For x = 1 To Seitenanzahl
If x Mod 2 = 0 Then
DoCmd.PrintOut acPages, x, x, acHigh, 1, True
End If
Next x
DoCmd.Close
Geradeseiten_Exit:
Exit Function
Geradeseiten_Err:
MsgBox Error$
Resume Geradeseiten_Exit
End Function
Function UNGeradeseiten()
On Error GoTo UNGeradeseiten_Err
Dim x, Seitenanzahl As Integer
DoCmd.OpenReport "DeinBericht", acPreview, "", ""
Seitenanzahl = Reports![DeinBericht]![Gesamtseiten]
For x = 1 To Seitenanzahl
If x Mod 2 <> 0 Then
DoCmd.PrintOut acPages, x, x, acHigh, 1, True
End If
Next x
DoCmd.Close
UNGeradeseiten_Exit:
Exit Function
UNGeradeseiten_Err:
MsgBox Error$
Resume UNGeradeseiten_Exit
End Function
Copyright 2000-2003 Microsys
Kramer– Alle Rechte vorbehalten - Der Download von Tipps und
Programmen von den Seiten www.access-paradies.de erfolgt auf eigene
Gefahr. Microsys Kramer haftet nicht für Schäden, die
aus der Installation oder der Nutzung von Tipps oder Software aus
dem Download-Bereich erfolgen. Trotz aktueller Virenprüfung
ist eine Haftung für Schäden und Beeinträchtigungen
durch Computerviren ausgeschlossen. Schadenersatzansprüche,
aus welchem Rechtsgrund auch immer, sind ausgeschlossen, wenn Microsys
Kramer nicht Vorsatz oder grobe Fahrlässigkeit zu vertreten
hat. Dies gilt auch für Ansprüche auf Ersatz von Folgeschäden
wie Datenverlust. | 
» Gesamtliste
