Hi all !...

I want to make a manual report; I'm inserting this code into a program but it doesn't work properly.

If somebody help me will appreciate..

Regards.

Dude....

 

Select 10
Use Rphagent shared
Pri=Alltrim(Rphagent.impresora)
Set console off
Set printer on
Set device to printer
Set printer to name "&Pri"
Sele("Fact_print")
Go top
Scan for !eof()
    @ Fact_print.row1,Fact_print.col1 say Fact_print.campo font 'Courier' 16 STYLE 'BI'
    If Fact_print.campo="Rphdetl"
        Sele("Rphdetl")
        Seek Rphmstr.factura
        Sele("Fact_print")
        Scan For Rphdetl.factura=Rphmstr.factura
               @ Fact_print.row1,Fact_print.col1 say Fact_print.campo font 'Courier', 16 STYLE 'BI'
               Sele("Fact_print")
               Skip
               Sele("Rphdetl")
        Endscan
    Endif
Endscan     
Eject
Set console on
Set device to screen
Set printer off