>Excuse me.
>i can not understand your message.
>you say that i define two printer with two custom paper size?
>
>
>i have another question.
>i want to know can i define my custom paper size from within my program and can i test that this custom size is exist or no form with in my program?
>
First of all.. One printer (for real, hardware).. Right ?

Two different declarations of printers (on software windows) both point to same port LPT..

In a first one (named for instance MY PRINTER OF SPECIAL FORM 1) you set the custom paper for your special size..

The other printer (named for instance MY PRINTER OF ORDERS) you set the custom paper for your second special size 2..

So at your software you can separate (by task) where we should send the print..

You can do something as:

sele mytable
if  set_printer_point("MY PRINTER OF SPECIAL FORM 1")
    report form ...
else
    wait window "You must to create a printer named MY PRINTER OF SPECIAL FORM 1 for this option" nowait
endif
return

procedure set_printer_point
lparameters cwprinter
nwtot_imp          = APRINTERS(awimpress)
nwimp              = 0
for ipp = 1 to nwtot_imp
    if  upper(cwprinter)$upper(awimpress[ipp,1])
        nwimp      = ipp
        SET PRINTER TO NAME awimpress[ipp,1]
        exit
    endif
endfor
return nwimp > 0
endproc

HTH