Report.SaveAs

[glenschild]

Hi, having searched the board for a similar issue I cannot find exactly this scenario.

One of my applications developed in v5 and working just fine in version 5 will will not produce the reports correctly in v7 (or indeed in v6)

One example is the following script which saves an rtf version of a report to a file:

query.filter = ""
query.order = ""

dim filename as C
dim path as C
dim subpath as C
dim reportname as C
dim whichyear as C
dim whichweek as C
dim vteamname as C

'common variables
path = A5.Get_Path()
subpath = chr(92) + "Reports" + chr(92)
whichyear = right(var->vYear,2)
whichweek = "w"+var->vWeek

'Season Leaders Reports
reportname = "Leaders"
filename = path+subpath+whichyear+whichweek+reportname
:Report.SaveAs("Season Leaders","RTF",query.filter,query.order,filename,.F.)

-------------------------------

When running the report in v7 I get an error message "Printer not activated, error code -30"

If I try to preview the report and then try to "save as" I get the same message.

I figure this is a printer driver issue and not a script issue but cannot see how to resolve?

Any help greatly received.

Regards

Glen Schild

[ira]

I think it must be a BUG in V7. The same thing happens when trying to print a report to a PDF file. As soon as you try to define a filter or sort order in the funtion, you receive the error message "Printer not activated, error code -30".
If you don't define a filter or order the file is created.

The only work around I can find is to filter your file befor calling the print funtion, and don't try to define a filter or sort order within the print funtion.

[Cheryl Lemire]

Hi Glen,

Try adding:

'replace variables in the filter with their actual values
query.filter = convert_expression(query.filter,"V")

before:

:Report.SaveAs("Season Leaders","RTF",query.filter,query.order,filename,.F.)

Good luck
Cheryl

[glenschild]

Hi Cheryl

Thanks for the response but I am afraid it did not work, I still get the same error message?

Regards

Glen

[Cheryl Lemire]

Glen,

It is time to attach a sample that works without the filter and one that does not work with a filter. That will give us something more tangent to work with.

Good luck
Cheryl

[martinwcole]

my own fix for this was to set the report filter and order to variables, and set the variables before printing/saving the report
like:
dim global rfilter as c
dim global rorder as c
var->rfilter="somefield='125' .and. someotherfield='126'"
var->rorder="invert(enterdate)"

[ira]

I think it must be a BUG in V7. The same thing happens when trying to print a report to a PDF file. As soon as you try to define a filter or sort order in the funtion, you receive the error message "Printer not activated, error code -30".
If you don't define a filter or order the file is created.

The only work around I can find is to filter your file befor calling the print funtion, and don't try to define a filter or sort order within the print funtion.

If you want to filter your report, you can create a saved Query, then you can print to file using the saved query. Otherwise you get the "Printer not activated, error code -30".

I have tried using another PDF file creator from Alpha 5 V7 without sucess.