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
Greetings, to anyone who can help me, please.
- Jose Marte2
- Posts: 52
- Joined: Thu Nov 16, 2017 2:19 pm
- Location: República Dominicana
Greetings, to anyone who can help me, please.
- Attachments
-
- Foto de José Marte (9).jpg (115.39 KiB) Viewed 253 times
José Marte
Software & Servicios
Software & Servicios
Re: Greetings, to anyone who can help me, please.
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
Saludos
Re: Greetings, to anyone who can help me, please.
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.
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.