PDA

Vollständige Version anzeigen : Drucken


andre06
20.01.2003, 09:47
Hallo Guten Morgen!

Ich habe folgenden Code um einen Bericht anzeigen zu lassen!
was muß ich ändern um den aktuellen Bericht gleich zu Drucken

Private Sub druck_Click()
On Error GoTo Err_druckkom_Click


On Error GoTo Exit_druckkom_Click:
DoCmd.RunCommand acCmdSaveRecord
On Error GoTo Err_druckkom_Click

'----------
'wenn ein neuer DS aktiv ist und keine Daten drin sind
'dann exit
'----------
If Me.NewRecord Then
GoTo Exit_druckkom_Click:
End If

'----------
'DS in Seitenansicht anzeigen und auf Zoom umschalten
'----------
DoCmd.OpenReport "Komzettel", acViewPreview, , "[ID] = " & Me![ID]
SendKeys "%z", True

Exit_druckkom_Click:
Exit Sub

Err_druckkom_Click:
MsgBox Err.Description
Resume Exit_druckkom_Click

End Sub

vielen Dank Andre

Karin
20.01.2003, 09:59
Hallo!

Wenn ich Dich richtig verstehe, dann einfach das "acViewPreview" wech lassen!

Tschüss :winken:
Karin

Karlheinz
20.01.2003, 10:00
Hallo Andre,


ersetze acViewPreview durch acViewNormal

oder lass acViewPreview einfach weg. s. unten

DoCmd.OpenReport "Komzettel", , , "[ID] = " & Me![ID]

Gruß Karlheinz

racoon0506
20.01.2003, 10:01
Um den Bericht direkt zu drucken:

DoCmd.OpenReport "Komzettel", acNormal, , "[ID] = " & Me![ID]

andre06
20.01.2003, 10:11
Hallo,
vielen Dank für die schnelle Hilfe

Gruß Andre