I don't think you can solve it, it is HP serious problem.
Even you use VFP 6.0 with SP3, you still get out of memory and hand machine...
It only can solve unless HP ltd. fix their printer driver.. ~_~
OR you need to use another brand printer..
>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!!
The weak wait for chance, The strong bid for chance,
The clever notch up chance, but The merciful give you chance.
