Export report by filedialog

  • Thread starter Thread starter Seansan
  • Start date Start date
S

Seansan

Hi there,

I am trying to write some code to export a report to file (preferred RTF).

Ho do I save the current report? VBA help tells me to leave the second
argument blanc, but an error is raised

DoCmd.OutputTo acOutputReport, , acFormatRTF, file_loc, True

Any help appreciated

Thx, Sean
 
Hi Sean,
VBA help tells me to leave the second argument blank, but an error is raised
Click to expand...

It says to leave the second argument blank if you want to export the active
object. Trouble is, your report is likely not active at the time you are
running this code. Try the following procedure instead:

Sub ExportReportAsRTF()
On Error GoTo ProcError

DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="rptArtists", _
OutputFormat:=acFormatRTF, AutoStart:=False

ExitProc:
Exit Sub
ProcError:
Select Case Err.Number
Case 2501 ' User clicked on cancel
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in procedure ExportReportAsRTF..."
End Select
Resume ExitProc
End Sub

or

Sub ExportReportAsRTF2()
On Error GoTo ProcError

DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="rptArtists", _
OutputFormat:=acFormatRTF, OutputFile:="Test.rtf", _
AutoStart:=False

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in procedure ExportReportAsRTF..."
Resume ExitProc
End Sub

These subroutines can easily be modified to pass in the name of the report
as a parameter, instead of hard coding. Your choice. Be aware that exporting
reports in RTF format can leave a lot to be desired. This is not a WYSIWYG
export. For example, lines and checkboxes are not exported correctly.

Tom
________________________________________

:

Hi there,

I am trying to write some code to export a report to file (preferred RTF).

Ho do I save the current report? VBA help tells me to leave the second
argument blanc, but an error is raised

DoCmd.OutputTo acOutputReport, , acFormatRTF, file_loc, True

Any help appreciated

Thx, Sean
 
Thx, this works, but not a 100%. The thing is that I call a report from a
form with certain WHERE or FILTER statements. I want to export the result.
The code now exports the whole report, instead of the choosen selection

any ideas? Is it possible to have a custom popup/message/button on a report
that can EXPORT the current object?

gr, Sean

<code>

Private Sub exportRFCs_Click()
Dim file_loc As String: file_loc = ""
Dim strFilter As String: strFilter = ""
strFilter = ahtAddFilterItem(strFilter, "Rapporten (*.doc)", "*.rtf")
file_loc = ahtCommonFileOpenSave(OpenFile:=False, _
Filter:=strFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or
ahtOFN_READONLY, _
DefaultExt:="rtf", _
DialogTitle:="Export Rapport")
If Not (IsNull(file_loc) Or file_loc = "") Then
DoCmd.OutputTo acOutputReport, "RFCsInBehandeling", acFormatRTF,
file_loc, False
End If

I want to apply the same filter to "RFCsInBehandeling" as I would when I
show the report in printmode
 
Hi Sean,

I was headed out the door, to go to work, when I just noticed your reply. I
won't be able to get back to this thread for approx. the next 10 hours or so.
If anyone else wants to step in and answer, please do so.

Tom
___________________________________________

:

Thx, this works, but not a 100%. The thing is that I call a report from a
form with certain WHERE or FILTER statements. I want to export the result.
The code now exports the whole report, instead of the choosen selection

any ideas? Is it possible to have a custom popup/message/button on a report
that can EXPORT the current object?

gr, Sean

<code>

Private Sub exportRFCs_Click()
Dim file_loc As String: file_loc = ""
Dim strFilter As String: strFilter = ""
strFilter = ahtAddFilterItem(strFilter, "Rapporten (*.doc)", "*.rtf")
file_loc = ahtCommonFileOpenSave(OpenFile:=False, _
Filter:=strFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or
ahtOFN_READONLY, _
DefaultExt:="rtf", _
DialogTitle:="Export Rapport")
If Not (IsNull(file_loc) Or file_loc = "") Then
DoCmd.OutputTo acOutputReport, "RFCsInBehandeling", acFormatRTF,
file_loc, False
End If

I want to apply the same filter to "RFCsInBehandeling" as I would when I
show the report in printmode
 
One approach would be to have your form set a global string variable(s) with
your conditions and then, in Report_Open, check to see if conditions have
been specified and, if so, apply them. (Set the variables to "" on
Report_Close).

Then, no matter how the report is opened, it will apply the current
conditions.
 
Hi George,

Thanks for stepping in.

Sean: Does George's suggestion work for you?


Tom
_____________________________________


One approach would be to have your form set a global string variable(s) with
your conditions and then, in Report_Open, check to see if conditions have
been specified and, if so, apply them. (Set the variables to "" on
Report_Close).

Then, no matter how the report is opened, it will apply the current
conditions.
 
Tom and George,

globals are not my strongest subject, but I'll try to figure this one out!

Thx, Sean
 
my code, for future reference

<calling program>
Private Sub exportRFCs_Click()
Dim file_loc As String: file_loc = ""
Dim strFilter As String: strFilter = ""
Dim file_name As String: file_name = "My default file name"
If Not IsNull(SEL_OWNER.Value) Then
file_name = file_name + " " + SEL_OWNER.Value
End If
global_fltr = buildfltr
global_query = getdataset
strFilter = ahtAddFilterItem(strFilter, "Rapporten (*.rtf)")
file_loc = ahtCommonFileOpenSave(OpenFile:=False, _
Filter:=strFilter, _
Flags:=ahtOFN_OVERWRITEPROMPT Or
ahtOFN_READONLY, _
DefaultExt:="rtf", _
DialogTitle:="Export Rapport", _
FileName:=file_name)
If Not (IsNull(file_loc) Or file_loc = "") Then
DoCmd.OutputTo acOutputReport, "RFCsInBehandeling", acFormatRTF,
file_loc, False
End If
End Sub

<in report>
Private Sub Report_Open(Cancel As Integer)
If (global_query = "") Then
MsgBox "No dataset defined, exiting"
Exit Sub
End If
Me.RecordSource = global_query
Me.OrderBy = "RFC_IA_Status ASC"
If (global_fltr = "") Then Exit Sub
DoCmd.ApplyFilter , global_fltr
End Sub
 
Back
Top