Printing one Record

[bushido19946]

I am triyng to print the current record using this but when i hit the button another record was printed.

Private Sub PRINT_Click()
On Error GoTo Err_PRINT_Click
 
Dim MyForm As Form
Dim record_num As Long
 
stDocName = "PerformancePay"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
record_num = MyForm.CurrentRecord
DoCmd.PrintOut acPages, record_num, record_num
 
 
Exit_PRINT_Click:
Exit Sub
 
Err_PRINT_Click:
MsgBox Err.Description
Resume Exit_PRINT_Click
 
End Sub

[Stewart Ross]

Hi. There is no obvious fault with what you have, although if your command button is on the same form you don't need to use screen.activeform - you can just refer to me.currentrecord instead.

Try the following and see if it still gives you the wrong page:

DoCmd.PrintOut acSelection

(you don't need to specify the page for this option, so comment out or remove lines 8-10 above).

-Stewart

[bushido19946]

Now i can print the current record but now is printing 3 extra pages one with the command buttons and the other two with the color background

[Stewart Ross]

Hi. DoCmd.Printout is intended to print the form as it appears on screen - complete with buttons and so on. The acPages qualifier you used originally restricts printing to specific pages of the form, but you indicated that it was printing the wrong record (it works fine for me on my test system).

You could revert to your original code, substituting me.currentrecord for your myform reference to screen.activeform and leaving out lines 8-10 to see what happens this time, as below:

record_num = me.currentrecord
DoCmd.PrintOut acPages, record_num, record_num

-Stewart

[bushido19946]

Hi. DoCmd.Printout is intended to print the form as it appears on screen - complete with buttons and so on. The acPages qualifier you used originally restricts printing to specific pages of the form, but you indicated that it was printing the wrong record (it works fine for me on my test system).

You could revert to your original code, substituting me.currentrecord for your myform reference to screen.activeform and leaving out lines 8-10 to see what happens this time, as below:

record_num = me.currentrecord
DoCmd.PrintOut acPages, record_num, record_num

-Stewart

You say 8 thru 10 0r 8 and 10

[Stewart Ross]

8 through 10 - no need at all to select the form specifically, or set myform to screen.activeform, or set rec_num to the value of myform.currentrecord.

-Stewart

[bushido19946]

This what i have so far and is printing one page with out buttons but the wrong record.

Private Sub PRINT_Click()
On Error GoTo Err_PRINT_Click
 
Dim MyForm As Form
Dim record_num As Long
 
stDocName = "PerformancePay"
record_num = Me.CurrentRecord
DoCmd.PrintOut acPages, record_num, record_num
 
 
Exit_PRINT_Click:
Exit Sub
 
Err_PRINT_Click:
MsgBox Err.Description
Resume Exit_PRINT_Click
 
End Sub

[bushido19946]

Please i still with the same problem

[Stewart Ross]

Sorry, I can suggest no more as this appears to be something specific to your particular form in your particular circumstances.

You could devise a proper report for your users then print that using DoCmd.OpenReport, supplying a WHERE clause to filter the records and restrict printing to just the one record. That is what I do myself; I do not use the form-based PrintOut at all. I must leave further investigation of that kind of option to you however.

-Stewart