Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can I save a report layout without printer informati
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00340080
Message ID:
00340539
Views:
22
>Hi everybody,
>
>I have problems with my reports layout... The layout keeps information about my default printer when I create it. When I distrubute it to a customer that doesn't have the same printer than me, the report doesn't print out the same way it was on my computer. For example, some caracters may be truncated on the right edge of the page or the source of the paper is wrong if I created my layout on a printer that doesn't have a tray and the customer's printer has one, etc...
>
>My question is : Is there any way I can save a report layout without informations about my printer to be sure it's going to print out exactly the same way on any printer ??
>
>
>I hope everything is clear enough for you to understand.
>Sorry for my english !!
>
>Thanks in advance !
>
>Benoit Grenier.

I have a little utility I run against my report directory before I build me exe to distribute. It follows:

LOCAL lcSaveDefault, lcSavepath, lcReportDir, laReportArray
lcReportDir = ''
DIMENSION laReportArray[1]
lcSaveDefault = SET('DEFAULT')
lcSavepath = SET('PATH')

lcReportDir = GETDIR('','Where is Report Directory?')

SET DEFA TO (lcReportDir)
SET PATH TO (lcReportDir)

ADIR(laReportArray,'*.FRX')

FOR i = 1 To ALEN(laReportArray,1)
SELECT 0
USE laReportArray[i,1] ALIAS FixReport
LOCATE FOR Objtype = 1 AND Objcode = 53
REPLACE FixReport.Tag WITH ""
REPLACE FixReport.Tag2 WITH ""
* Possible bug in that this removed the landscape and portrait settings
*REPLACE FixReport.Expr WITH ""
USE
ENDFOR

=messagebox('Processed ' + ALLTRIM(STR(ALEN(laReportArray,1))) + ' Reports')

SET DEFAULT TO (lcSaveDefault)
SET PATH TO (lcSavepath)
Bret Hobbs

"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope
Previous
Reply
Map
View

Click here to load this message in the networking platform