Print report based on the checkbox selection

[LukeSept]

Hi, I'm having difficulties with building a printing option for specific goods selected on the list.



I have a form which contains a subform. On the main form user is able to select supplier and based on the supplier can choose article that he's interested in. On the subform user gets the list of all the goods that are connected with that specific article.

I want be able now to select specific goods from subform list (using checkbox value) and based on the selection print a separate label for each goods.

[June7]

The checkbox must be bound to a Yes/No field. Then code to open report:

DoCmd.OpenReport "report name", , , "fieldname=True"

Then probably need to set the field back to False for all records.

CurrentDb.Execute "UPDATE tablename SET fieldname = False"

[LukeSept]

Thanks for so fast answer

Yet it solve only part of my problem. It finally prints out my report but it prints all the records not just the one selected by the checkboxes. And before printing it asks me about parameter value.

So my current code looks like that right now:

Private Sub Print_Click()Dim strDefaultPrinter As String


' get current default printer.


strDefaultPrinter = Application.Printer.DeviceName


' switch to printer of your choice:


Set Application.Printer = Application.Printers("CutePDF Writer")


Me.Recalc


DoCmd.OpenReport "Labels", , , "PrintChk=True"


'Here i tried to count selected checkboxes and print report form them


'If Me!txtCount = 0 Then


'MsgBox "Select a record to print.", vbOKOnly, "Error"


'Else


'DoCmd.Close acReport, "Labels", acSaveNo


'End If


' Switch back to original default printer


Set Application.Printer = Application.Printers(strDefaultPrinter)


Exit Sub


End Sub

[June7]

As I said, the checkbox must be bound to a field - and that field must be in the report RecordSource.

Really don't know your db well enough to give specific advice. If you want to provide for analysis, follow instructions at bottom of my post.

[LukeSept]

Damm, thank you mate it works like a charm I have put a wrong value into a fieldname ... SOLVED