show records in preview but not print

[Asif]

I have used recordset in detail print event for some fields in report which shows records in preview but not print

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(vstr, dbOpenSnapshot)

With rs
If .RecordCount = 0 Then Exit Sub
dt1.Caption = .Fields("Date") & ". GRN#." & .Fields("VocNo") & ". IGP#." & .Fields("IGP")
rt1.Caption = .Fields("Rate")
pt1.Caption = .Fields("LParty")
.MoveNext

Do While Not .EOF
Select Case .AbsolutePosition
Case 1
dt2.Caption = .Fields("Date") & ". GRN#." & .Fields("VocNo") & ". IGP#." & .Fields("IGP")
rt2.Caption = .Fields("Rate")
pt2.Caption = .Fields("LParty")
End Select
.MoveNext
Loop
End With
End Sub

Please suggest me solution to this problem.

 

[JoanneJames]

perhaps looking up help on AbsolutePosition property might help? or Page Setup?

 

[CCTMedic]

In Acces 2007 there is a "View" selection area in the properties menu for each field. You can select when you want the data to appear; "screen", "Print" etc. I am not familiar with other versions. Maybe earlier version have the same option? Hope this helps.