bb.donnay-software.com

Warm greetings, I hope you and your families are well.

I'm hoping someone can help me or offer suggestions on how to resolve this issue.

I have a sales summary report or cash register reconciliation report to print on a receipt printer.

The problem is that it cuts the paper at each page break, and I'd like to know how to make it print on a single page.

I've attached an image and the code.

Thank you in advance.

DCPRINT ON TO oPrinter OPTIONS aOptions FONT '8.Consolas' HIDE NOSTOP

If cImpDeta != "N"
@ DC_PRinterRow()+02,00 DCPRINT Say Replicate("-",41)
@ DC_PRinterRow()+01,00 DCPRINT Say "ARTICULOS "+IIF(cImpDeta=="R","RESUMEN","DETALLADO") FONT '9.Consolas Bold'
@ DC_PRinterRow()+01,00 DCPRINT Say Replicate("-",41)
If cImpDeta =="R"
DBSelectArea("cNombreArchivoTemporal")
ElseIf cImpDeta == "D"
DBSelectArea("cNombreArchivoTemp")
EndiF
DBGoTop()
nTotVenA := 0
nLineaI := DC_PrinterRow()+01
Do While !Eof()
If Cantid != 0
@ DC_PrinterRow()+01,00 DCPRINT Say TransForm(nLineaI,"99")+" "+TransForm(oPrinter:nRows,"99")+" "+Left(DesArt,30)+" "+TransForm(Cantid,"99,999")+" "+TransForm((Cantid*ValVen),"999,999.99") FONT '8.Consolas Bold'
If cImpDeta == "R"
nTotVenA := nTotVenA + ValVen
Else
nTotVenA := nTotVenA + (Cantid*ValVen)
EndiF
nLineaI := nLineaI + 1
If nLineaI > (oPrinter:nRows)
DCPRINT EJECT
EndiF
EndiF
If cImpDeta =="R"
DBSelectArea("cNombreArchivoTemporal")
ElseIf cImpDeta == "D"
DBSelectArea("cNombreArchivoTemp")
EndiF
DBSkip()
EndDo
@ DC_PRinterRow()+01,00 DCPRINT Say Replicate("=",41)
@ DC_PRinterRow()+01,00 DCPRINT Say "TOTAL POR ARTICULOS VENDIDOS "+TransForm(nTotVenA,"99,999,999.99") FONT '8.Consolas Bold'
EndiF

Hola Jose el tamaño del papel y por lo tanto el salto automático se configura en el driver de la impresora de tickets

Saludos

Hi,

I suppose the 'auto cut on new page' is configured in the driver. Why do you have a dcprint eject if you dont want to cut? You can also print some blank lines and eventually a new header without the eject.
Or you could use some page numbering to make it easier to order the pages once they are cut. I don't know if you can overrule the printer autocut.