[ Φόρμες ] Εκτύπωση τρέχουσας εγγραφής (στη φόρμα)

[thanosgr]

Καλησπερα, δινω ενα δικο μου παράδειγμα... απο δικιά μου εφαρμογη

Η εκτυπωση γινετε απο button

Private Sub Command31_Click()
On Error GoTo HandleErr
Dim rst As DAO.Recordset
If Not IsNull(Me!TransactionLineID) Then
DoCmd.OpenReport "TransactionLine", acViewPreview, , "TransactionLineID = " & Me!TransactionLineID
End If

HandleErrExit:
On Error GoTo 0
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err & " : " & Error$, vbCritical, "Προσοχή"
Resume HandleErrExit
End Select
End Sub