DCPRINT

[Jose Marte]

Hello Sr. Roger, I found this forum for programmers, congratulations. I would like it if it is possible, it helps me with a question that has already been posted in this forum, but the answers I have not understood at all. I'm a Clipper programmer and now I'm taking the first steps with this library to take my programs to graphics. I change the paper size of 9 1/2 x 11 to 9 1/2 x 5 1/2
For when EJECT DCPRINT use the page break function properly.
When I use DCPRINT EJECT it jumps to the next page or not half the page. 9 1/2 x 5 1/2 continuous paper for invoice documents. Thank you.

[rdonnay]

I don't see how this is possible.

EJECT DCPRINT would give you a syntax error during compiling.

I need to see a small sample program from you that I can compile and run.

[Jose Marte]

I don't see how this is possible.

EJECT DCPRINT would give you a syntax error during compiling.

I need to see a small sample program from you that I can compile and run.

Sorry for writing the wrong instruction is DCPRINT EJECT, but I'll give you an example of what I'm doing to see if you can help me with that, thanks a thousand.


In the example

In Clipper it works for me, I just made the changes that required to use the library, the paper is 9½x5½ half page or letter and gives me the complete jump of a normal page 9½ x11

[rdonnay]

You need to look at the FORMSIZE clause of DCPRINT.

[Jose Marte]

You need to look at the FORMSIZE clause of DCPRINT.

Sorry for Mr. Roger, thanks for the suggestion, I used all the paper types that FORMSIZE handles, but still it gives me the full page jump, please see the instruction and if you could tell me if they are well or if you need more . As I said earlier I'm starting to work with this bookcase to see if I can take my Clipper program to graphics. Thank you

DCPRINT ON TO oPrinter OPTIONS aOptions ORIENTARION 1 FONT '9.Consolas' FORMSIZE [number]

[rdonnay]

REPLACE DCPRINT EJECT with DCPRINT OFF.

You should NEVER have a DCPRINT EJECT at the end of your program because DCPRINT OFF always does an eject. If you call DCPRINT EJECT at the end, then you will get 2 ejects.

[Jose Marte]

REPLACE DCPRINT EJECT with DCPRINT OFF.

You should NEVER have a DCPRINT EJECT at the end of your program because DCPRINT OFF always does an eject. If you call DCPRINT EJECT at the end, then you will get 2 ejects.

Mr. Roger, thank you, thank you very much, for your help, I still do not work the half page jump, but nothing else will be, thank you. I leave the complete example as I have now if you see something that is wrong, to change it later, anyway thanks, if it is not annoyance, I will make other queries later on other topics.

Example:

// Impresion De Recibo
STATIC PROCEDURE ImprRec()

DCPRINT ON TO oPrinter OPTIONS aOptions SIZE 66,80 ORIENTATION 1 FONT '9.Consolas' FORMSIZE 2

IF ValType(oPrinter) != "O" .Or. !oPrinter:lActive
RETURN
ENDIF

@ DC_PRinterRow()+01,00 DCPRINT SAY PADC(ALLTRIM(cNombreEmp),70," ")
@ DC_PRinterRow()+01,00 DCPRINT SAY PADC(ALLTRIM(cNombreEsp),70," ")
@ DC_PRinterRow()+01,00 DCPRINT Say PADC(AllTrim(cCalleEmp)+", "+AllTrim(cCiudadEmp),70," ")
@ DC_PRinterRow()+01,00 DCPRINT Say PADC(AllTrim("Tel- "+cTelefEmp+" * "+"Fax- "+cFaxEmp),70," ")
@ DC_PRinterRow()+01,00 DCPRINT Say PADC(AllTrim(cNumRnc),70," ")
@ DC_PRinterRow()+01,00 DCPRINT SAY PADC(ALLTRIM("RECIBO DE INGRESO"),70)
@ DC_PRinterRow()+01,00 DCPRINT Say Replicate("-",70)
@ DC_PRinterRow()+01,00 DCPRINT Say "Hemos Recibido Dex:"+ClieFile->NomCliente
@ DC_PRinterRow(),57 DCPRINT Say "Numero: "+StrZero(Ingresoh->NumRec,7,0)
@ DC_PRinterRow()+01,57 DCPRINT Say " Fecha: "+DTOC(Ingresoh->FecRec)
@ DC_PRinterRow()+01,00 DCPRINT Say " La Suma De: "+"$"+AllTrim(TransForm((Ingresoh->ValRec+Ingresoh->PagMor),"9,999,999.99"))
@ DC_PRinterRow()+01,00 DCPRINT Say PADC(AllTrim("*"+NumLet+"*"),70," ")
@ DC_PRinterRow()+02,00 DCPRINT Say " Prestamo(s) Num:"+StrZero(nNumPre,7,0)
@ DC_PRinterRow()+01,00 DCPRINT SAY " Tipo De Pago: Efectivo"
@ DC_PRinterRow()+02,00 DCPRINT Say " "
@ DC_PRinterRow()+01,00 DCPRINT Say "POR CONCEPTO DE..: "+aConcep1
@ DC_PRinterRow()+01,00 DCPRINT Say " "+aConcep2
@ DC_PRinterRow()+01,00 DCPRINT Say " "+aConcep3
@ DC_PRinterRow()+01,00 DCPRINT Say " "+aConcep4
@ DC_PRinterRow()+01,00 DCPRINT Say " "+aConcep5
@ DC_PRinterRow()+01,00 DCPRINT Say " "+aConcep6
@ DC_PRinterRow()+01,00 DCPRINT Say " "+aConcep7
If cImpBce == "S"
@ DC_PRinterRow()+01,00 DCPRINT Say " BALANCE ACTUAL: "+TransForm(ClieFile->DeuCliente-ClieFile->AboCliente,"9,999,999.99")
EndiF
@ DC_PRinterRow()+01,00 DCPRINT Say Replicate('-',70)
@ DC_PRinterRow()+01,00 DCPRINT Say " Observacion: "+INGRESOH->Observ
@ DC_PRinterRow()+01,55 DCPRINT Say "--------------------"
@ DC_PRinterRow()+01,55 DCPRINT Say " FIRMA AUTORIZADA "
@ DC_PRinterRow()+01,00 DCPRINT Say PADC(AllTrim("*** ESTE RECIBO NO ES VALIDO SI NO ESTA FIRMADO Y SELLADO POR LA COMPANIA ***"),80," ")

DCPRINT oFF

Return