Custom PaperSize

[hyonos]

Hi,
i have BIG and urgent problem !
i must print in custom paper size report for example 1270x1730
now, in expr i have found:
papersize=768
paperlengh=1730
paperwith=1270

all work fine, but i install my program in other pc where is installed another printer and custom paper size is not set, i have problem.
i have try to remove papersize value, but the report is print in A4 format !!!

how can i do ?

 

[Mike Gagnon]

hyonos

If the printer driver allows it, go to Printers->Server properties and create a new size for that printer driver.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[hyonos]

yes, but i can't tell this to all custumers..
can i do this from foxpro?

 

[hyonos]

I HAVE FOUND GREATS TIPS !!!

if in the "expr" papersize=256 fox read custom PAPERLENGTH and PAPERWIDTH in the "expr"

try this for clear and distribuite your foxpro report:



**********************************************************
** PROCEDURE TO REMOVE PRINTER DRIVER INFO FROM FRX FILES.
**********************************************************
** by Roberto.A
** hyonos@libero.it
** Last modified : 17 September, 2003
** provided as freeware
**********************************************************
** How to use ....
** 1. Copy the rep_util routine as given below
** 2. Open up your project in your project manager
** 3. Run the programme by DO rep_util from the command window
** OR in the command window enter =rep_util()
** 4. All the open projects Report Files are involved.
**********************************************************


PROCEDURE rep_util
LOCAL cRptFile, i, p
FOR p = 1 TO application.Projects.Count
FOR i = 1 TO application.Projects(p).Files.Count
cRptFile = application.Projects(p).Files(i).NAME
IF UPPER(JUSTEXT(cRptFile)) = "FRX"
WAIT WINDOW cRptFile NOWAIT && add NOWAIT if desired
USE (cRptFile)
LOCATE
temp = ""
temp=temp+MLINE(Expr,ATLINE("ORIENTATION",Expr))+CHR(13)
temp=temp+"PAPERSIZE=256"+CHR(13) &&this enable custom papersize
temp=temp+MLINE(Expr,ATLINE("PAPERLENGTH",Expr))+CHR(13)
temp=temp+MLINE(Expr,ATLINE("PAPERWIDTH",Expr))+CHR(13)
replace expr WITH temp, tag WITH "", tag2 WITH ""
USE
ENDIF
ENDFOR
ENDFOR
RETURN