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