Solved How to Print ListBox Selected Multiple Data Record

[smtazulislam]

I have a search List box where have a Search button.
After the results display some data. I want to print out from listbox choice multiple records.
How can I do that ?

 

[arnelgp]

dim var as variant
for each var in Me.lstBox.ItemsSelected
docmd.OpenReport REportName,View:=acViewPreview,WhereCondition:="ID = " & Me.lstBox.Column(0, var)
next

 

[smtazulislam]

dim var as variant
for each var in Me.lstBox.ItemsSelected
docmd.OpenReport REportName,View:=acViewPreview,WhereCondition:="ID = " & Me.lstBox.Column(0, var)
next

Thank you so much.
Its work, Only one record.
But I would like multiple records.

 

[arnelgp]

acViewPreview, i think is modal? so it doesn't advance to next record.

 

[smtazulislam]

You talking about Report Modal = Yes/No ;
My setting is Modal = No.
But I tried Modal = Yes
Its not work.

 

[arnelgp]

using Allen Brownes multi-instance.
the report is in report view.
select some items on the listbox.

see module2.

 

[smtazulislam]

Multiple selected record, Its opened Multi reports.
Not only one report.

 

[arnelgp]

ooh, i see.
try this code:

dim var as variant
dim strIDs as string
for each var in Me.lstBox.ItemsSelected
strIDs = strIDs & Me.lstBox.Column(0, var) & ","
next
if len(strIDs) <> 0 then
strIDs = Left$(strIDs, Len(strIDs)-1)
docmd.OpenReport ReportName,View:=acViewPreview,WhereCondition:="ID In (" & strIDs & ")"
end if

 

[smtazulislam]

Thank you very much