PDA

Vollständige Version anzeigen : Bestimmte Seiten eines Berichtes Drucken


clemensputz
01.03.2005, 11:28
Was Ihr benötigt ist einfach ein Button in einem Formular mit dem Namen "Befehl37". Dann gebt ihr dem Button folgenden Code
'Script zum Drucken bestimmter Seiten eines Berichtes über einen Button
Private Sub Befehl37_Click()
On Error GoTo Err_Befehl37_Click

Dim stDocName As String

stDocName = "Berichtname"
DoCmd.OpenReport stDocName, acPreview '<-- Öffnet im Vorschaumodus
DoCmd.PrintOut , 1, 1 '<-- Druckt Seite 1 bis 1
DoCmd.Close '<-- Schließt den Bericht wieder.
Exit_Befehl37_Click:
Exit Sub

Err_Befehl37_Click:
MsgBox Err.Description
Resume Exit_Befehl37_Click

End Sub