Test to see if Bluetooth Printer is ready

[Silvio.Falconi]

I made before the command PRINTER ::oPrn TO ::cPrinter

IF !IsPrinter()
Tone(4000)
Tone(3000)
MsgInfo("Verificare la stampante...","Attenzione!")
Endif


BUT this control not run !!!! HOW resolve it ?

But My problem also is another more important

I use this printer : http://www.megatron.fr/imprimantes/mmob ... nter_e.php

I not Know how many metres have the paper roll ..

Do I print a ticket and start printing the header of ticket and end the paper,,,what I can do?

If I insert a command to reprint the ticket this could be a dangerous thing because it could be reprinted

of the ticket to help the driver (thief) make copies of the tickets and travel

customers with copies of bills and rubbing some of the money

Any solution ?

How I can resolve ?

[Busmatic_wpb]

Estimado Silvio
Mira tengo 10 años de trabajar con impresoras termicas y la mayoria del tiempo que una impresion no sale por problemas de agotarse el papel este queda en el spooler de la impresora. Cuando pone el papel de nuevo esta vuelve a imprimir ya sea todo el tiquete si ocurrio o parte del que falto.

Actuamente estoy en desarrollo de un sistema de tablet abordo de autobus con impresora termicas USB, Lector sin contacto ,GPS y tambien blue tooth y se comporta igual,
Estamos en construccion
www.busmaticcr.com
Una abrazo

[karinha]

Maybe:

Code: Select all  Expand view

   PRINTER oPrn PREVIEW MODAL // PARA TESTAR A IMPRESSORA ANTES DE IMPRIMIR

   IF EMPTY( oPrn:hDC )
      MsgInfo( "ALGUMA COISA OCORREU DE ERRADO COM A IMPRESSORA.", "LIGUE A IMPRESSORA." )
      oPrn:End()
      RETURN( .F. )
   ENDIF

   oPrn:End()
 

.OR.

Code: Select all  Expand view

// viewtopic.php?f=3&t=30732&start=15
// Aqui está uma função simples para verificar se a impressora está pronta
FUNCTION isPrinterReady( oPrn )

RETURN !Empty( oPrn:hDC )
 

[Silvio.Falconi]

NOT RUN