Hola compañeros, alguien sabe como hacer para que un tiquet diseñado en un report

[prga...@gmail.com]

Resumen de correo para publice...@googlegroups.com

Hola compañeros, alguien sabe como hacer para que un tiquet diseñado en un report, solo imprima hasta la banda SUMARY i no salte toda la página, puesto que no hay PAGE FOOTER, grácias

[Edwin Duran]

Saludos, debes definir el tamaño de Papel

[RS “Ricardo”]

Yo lo que hago es diseñar el report con  un diseño de pagina de 7.22 cm (en propiedades) 

luego en el page Header pongo lo relativo al encabezado  del ticket 

luego en el detalle itero los productos que van en la venta

y los totales los pongo en el summary

En la impresora tengo por firmware la opcion que corte el ticjket

y se ve asi

[José Antonio Peña Martínez]

Tal vez debas activar en la configuración de la impresora de tickets el ahorro de papel

El mié, 23 de oct de 2024 02:15, prga...@gmail.com <prga...@gmail.com> escribió:

Resumen de correo para publice...@googlegroups.com

Hola compañeros, alguien sabe como hacer para que un tiquet diseñado en un report, solo imprima hasta la banda SUMARY i no salte toda la página, puesto que no hay PAGE FOOTER, grácias

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/bc852663-4672-46b9-a831-4ae1f1e17a5bn%40googlegroups.com.

[RS “Ricardo”]

Me falto poner el segmento de codigo que invoca el report y es el siguiente

If EstCtaDet.enviado = .F.  &&solo enviare los no enviado
**a continuacion busco los centroAbastecimiento para saber donde mandar el pedido  donde obtendre el nombre de la impresora
Select Centros_Abastecimiento.centroabastecimiento,;
Centros_Abastecimiento.Impresora_ppal,;
Centros_Abastecimiento.Impresora_alt1;
FROM Centros_Abastecimiento;
WHERE Centros_Abastecimiento.Id = EstCtaDet.IdAbastecimiento;
INTO Cursor mi_item_impresora
If _Tally != 0
Select mi_item_impresora
Go Top
Thisform.impresora = mi_item_impresora.Impresora_ppal
Thisform.Impresora_alt1=mi_item_impresora.Impresora_alt1
Set Printer To
If Len(Alltrim(Thisform.impresora)) != 0
IMPRES=Thisform.impresora
set_imp= "SET PRINTER TO NAME '"+Alltrim(IMPRES)+"'"
&set_imp
Else
Set Printer To Default
Endif
Thisform.Descripcion = EstCtaDet.Descripcion
centroabastecimiento=mi_item_impresora.centroabastecimiento
mesa=Thisform.mesa
garzon = Str(Thisform.idgarzonppal,3)+' ' +Alltrim(Thisform.garzonppal)
Fecha_HoraSolicitud= EstCtaDet.Fecha_HoraSolicitud
Descripcion = Str(EstCtaDet.cantidad,2)+' '+EstCtaDet.Descripcion
Solicitudes_Elaboracion = EstCtaDet.Solicitudes_Elaboracion

Try
Report Form Report\ticket_pedido_c_abast.frx  To Printer  Nodialog  &&invoca el report
Catch To oExc
mensg=oExc.Comment+" "+oExc.Details+" "+oExc.ErrorNo+" "+oExc.Message
Messagebox(mensg,0,"Atención")
Set Printer To Default   &&si dio error asisgno la impresora por omision 
Report Form Report\ticket_pedido_c_abast.frx To Printer Prompt Preview  && previsualizamos el reporte
Finally
Endtry

Else
centrado("No hay impresoras asignadas a los centros de Abastecimiento",2,0.5)
Endif

[Luis A. Francisco G.]

Yo lo hago @

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAOOxim_PcuDkdJQkX8YheyNa-TNoKsup-t7jh9agYSXUT3EVEQ%40mail.gmail.com.