Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report prints very tiny in upper left hand corner of pag
Message
 
À
01/08/2001 07:22:24
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00538211
Message ID:
00538223
Vues:
16
>I develop applications for multiple users on a Network.
>
>Here's the problem:
>If the user does not have the same default printer that I had when I created the report, or if the user gets a new network printer selection installed, printed reports come out about the size of a postage stamp - VERY tiny print - in the upper left hand corner of the page.
>
>This apparently has something to do with whether a Postscript driver or a PCL driver was installed with the user's network printer selection and whether I had a postscript or pcl driver installed with my printer selection when I created the report.
>
>In an environment where users and network printer selections for each user change often, is there any way to overcome this problem? Microsoft's VFP knowledge base acknowledged the problem at one time and stated that the problem was corrected in version 5.0, but that is not true - I'm using version 5.0. Also, I've downloaded a patch which was suggested by tech support at Microsoft but that has not alleviated the problem either.

When you generate your app or exe are you clearing out the fields in the report file that point to your printer. If you dont then the reports will expect to print to your printer all the time and things will not work properly. Before I do a build I run a program that will clean out all of the developers printer references inside the report form. I use the following code to do this:
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform