printing reports(Resolved)

[vivian2u]

hi,

I only can print the report once. If i print for the second time i have the run time errors " Operation is not allowed when the object is open. What can i do to avoid this. How to use refresh here?


Private Sub Print_Click()

DataEnvironment.Invoice_Grouping reg_no, inv_no
Invoice.Show vbModal

End Sub

[mateo107]

How do you close the "invoice" form? Are you using

Invoice.Hide

?

Perhaps

Unload Invoice

would work better?

[vivian2u]

Invoice is the report under desingers. its only allow to click on the grid once and get the report. If i click another record on the grid to print another report , i get run time errors " Operation is not allowed when the object is open. How can I solve this out?


Private Sub MSFlexGrid1_Click()
Dim inv_no As String
Dim reg_no As Integer
CurrentListRow = MSFlexGrid1.Row
inv_no = Me.MSFlexGrid1.TextMatrix(CurrentListRow, 0)
reg_no = Me.MSFlexGrid1.TextMatrix(CurrentListRow, 2)
DataEnvironment.Invoice_Grouping reg_no, inv_no
Invoice.Show vbModal

End Sub

[dee-u]

Try checking Invoice_Grouping's state if its open then close it first....

[vivian2u]

Can you please provide me with the coding. I have no idea on this...

[dglienna]

Your connection name may be different, but you have to do something like this:

DataEnvironment1.Connection1.Close

where Connection1 is the name of my connection to the DB.

[vivian2u]

yes, i put DataEnvironment1.Connection1.Open and DataEnvironment1.Connection1.Close. it works, so i can reselect the record from the grid. Thanks