Hi,
As I am also having the similar problem with VFP on the print
related stuffs. I like to know how do I solve the problem of
my print preview with every page last portion clip off. However,
the printout of the report are okay. I am using HP IIIP model in my
development environment whileas my customer are using
HP LJ1100 model. I had clear the TAG1, TAG2 and EXPR fields, but
still having the print preview problem in my NT workstation.
Please advise, thank you.
>>Whenever I use File / Page Setup / Print Setup in the VFP Report Designer to set page settings -- such as Landscape -- in a report, my default printer gets stored as the default for the report, overriding the user's default printer. I created the program below to clear the printer from the report file as recommended by the Microsoft KB, however, I lose the Landscape setting in the process. How can I prevent the printer from being stored in the first place or flexibly "scrub" only the default printer setting from my report file? Any insight would be greatly appreciated. Thanks, Scott
>
>
>
>
>*-* Author: Terence Tam (mailto:justok@iname.com)
>*-* FileName: CleanFrx.prg
>*-* Usage: CleanFrx() will automatic clean ALL frx in currectory dir.
>*-* CleanFrx("???INV.frx") will clean matched condition frx files.
>*-* CleanFrx("*.lbx") will clean ALL Labels!
>
>LPARAMETERS pFileFilter
>
>IF PCOUNT() = 0
> LFileFilter = "*.frx"
>ELSE
> LFileFilter = pFileFilter
>ENDIF
>
>nFileCount = ADIR(frxFile, LFileFilter)
>
>IF nFileCount = 0
> MESSAGEBOX("No .Frx File is found at "+CURDIR(),0+32,"What a Pity!")
> RETURN .F.
>ENDIF
>
>FixedFileList = ""
>FOR iCount = 1 to nFileCount
> USE frxFile[iCount,1]
> FixedFileList = FixedFileList + frxFile[iCount,1] + Chr(13)
> BLANK fields expr, tag, tag2
> WAIT "Cleaning "+ frxFile[iCount,1] Window NoWait
>** For some special reports...
>** REPLACE expr with "PAPERSIZE=256" + CHR(13) + "PAPERLENGTH=2750" + CHR(13) + "PAPERWIDTH=2100" + CHR(13)
>
> IF "PLAN" $ frxFile[iCount,1]
> * Plan.frx need Orientation=1 means Print in LandScape
> REPLACE expr with "ORIENTATION=1"
> ENDIF
>*!* replace All NoRepeat With .f. for !IsBlank(NoRepeat)
> USE
>ENDFOR
>
>CLEARMSG = "The Following Files in " + SYS(5) +CURDIR() + " : " + CHR(13) + FixedFileList + " have been Fixed, Compile Execute?"
>
>IF LEN(CLEARMSG) < 255
> IF MESSAGEBOX("The Following Files in " + SYS(5) +CURDIR() + " : " + CHR(13) + FixedFileList + " have been Fixed, Compile Execute?", 4 + 64, "CleanFrx Function") = 7
> RETURN
> ENDIF
>ELSE
> WW(CLEARMSG)
>ENDIF
>KEYBOARD '{ENTER}'
>
>SET SAFETY OFF
>Delete FILE *.ERR
>Delete FILE *.BAK
>Delete FILE *.TMP
>Delete FILE *.TBK
>
>*SET SAFETY ON
>WAIT WINDOW "All Done!!" TIMEOUT 3
>
>>
>
>
>there is a ww() function for me to handle message to user if over 255 character
>you can custom the message show to you for your favour!!
Best Regards
Virusim
