Gracias... pero donde dejo eso ?
If PSD_Impresora.Execute Then
Begin
Informe.Cuponera.Print;
Actualizar; /// --> procedure que actualiza informaicón en la base..
End
Else
ShowMessage('No se pudo imprimir el informe....intente nuevamente');
Tambien tengo esta otra consulta.... el reporte tiene 10 tickets.... pero hice la opción de que podia comprar 10 o 20 tickets, para lo cual utilizo lo siguiente :
If PSD_Impresora.Execute Then
Begin
If CB_Tick.Text = '20' Then //-> si esta seleccionado 20 imprime y sigue el proceso.. por lo tanto vuelve a imprimir... si no esta seleccionado imprimira 1 vez...
Informe.Cuponera.Print;
Informe.Cuponera.Print
End
else
ShowMessage('No se pudo imprimir el informe....intente nuevamente');
por lo pronto me funciona... pero existe alguna otra forma de hacerlo...?
