[theoma4]

Καλησπερα παιδια!
Συγνωμη που επεμβενω αλλα και γω εχω περιπου το ιδιο προβλημα που ειναι το εξης:
εχω την εκθεση σε μορφη προεπισκοπισης "PREVIEW" με τον εξης κωδικα:

Private Sub Εντολή59_Click()
DoCmd.OpenReport "PREVIEW", acViewPreview, , "[afm_for]='" & pvafm & "' " & " and [etos_apod]='" & pvetos & "'"
End Sub
και στη συνεχεια πατω το κουμπι εκτυπωσης για να εκτυπωθουν οι συγκεκριμενες αποδειξεις του "PREVIEW" με τον εξης κωδικα :

Private Sub print_Click()
On Error GoTo Err_print_Click

Dim stDocName As String
stDocName = "PREVIEW"
DoCmd.OpenReport stDocName, acNormal
Exit_print_Click:
Exit Sub
Err_print_Click:
MsgBox Err.Description
Resume Exit_print_Click
End Sub

το προβλημα ειναι οτι δεν εκτυπωνει την προεπισκοπιση και εκτυπωνει αλλες αποδειξεις...