S
skchth
As a beginner I have trouble or do not understand Lebans ReportUtilities. I
imported all the modules and copied the events of the reportutilities form in
to my form. I also imported the list box "txtrptname" in to my form, as well
as the "Export to File" command button. Everything works fine. Now here comes
my question/problem. How do I filter the report that I want to export? When I
click the command button it will open the report in Word, however not with
the data I want it filtered on.
I would like a command button on my form that will email the report with the
data of the form that is open, in the .rtf format with the graphics and lines
by using Lebans reportutilities.
I had a command button that worked with the following code behind it:
DoCmd.OpenReport "L&F_ Main_ Report", acViewPreview, "",
"[Expr2]=[Forms]![LostFoundMainForm]![Expr2]", acHidden
DoCmd.Close acForm, "LostFoundMainForm"
On Error Resume Next
DoCmd.SendObject acReport, "L&F_ Main_ Report", "RichTextFormat(*.rtf)",
"", "", "", "", "", False, ""
DoCmd.Close acReport, "L&F_ Main_ Report"
DoCmd.OpenForm "Switchboard Lost and Found", acNormal, "", "", , acNormal
This worked fine, however without the lines and grahics.
Any help will be appreciated.
imported all the modules and copied the events of the reportutilities form in
to my form. I also imported the list box "txtrptname" in to my form, as well
as the "Export to File" command button. Everything works fine. Now here comes
my question/problem. How do I filter the report that I want to export? When I
click the command button it will open the report in Word, however not with
the data I want it filtered on.
I would like a command button on my form that will email the report with the
data of the form that is open, in the .rtf format with the graphics and lines
by using Lebans reportutilities.
I had a command button that worked with the following code behind it:
DoCmd.OpenReport "L&F_ Main_ Report", acViewPreview, "",
"[Expr2]=[Forms]![LostFoundMainForm]![Expr2]", acHidden
DoCmd.Close acForm, "LostFoundMainForm"
On Error Resume Next
DoCmd.SendObject acReport, "L&F_ Main_ Report", "RichTextFormat(*.rtf)",
"", "", "", "", "", False, ""
DoCmd.Close acReport, "L&F_ Main_ Report"
DoCmd.OpenForm "Switchboard Lost and Found", acNormal, "", "", , acNormal
This worked fine, however without the lines and grahics.
Any help will be appreciated.