cTexto := padc( "================================", 32 ) + CRLF
cTexto += padl( "LoteNetSoft", 32 ) + CRLF + CRLF + CRLF + CRLF
If MsgNoYes( "¿ Quieres imprimir ?" )
PrintSend( cTexto )
EndIf
#pragma BEGINDUMP
#include <hbapi.h>
HB_FUNC( PRINTSEND )
{
PDSDK_ReadStatus() ;
PDSDK_OpenPrinter( FALSE, "" ) ;
PDSDK_PrintTaggedText( hb_parc( 1 ), hb_parclen(1) ) ;
PDSDK_Flush() ;
PDSDK_ClosePrinter() ;
}
HB_FUNC( PRINTSTATUS )
{
hb_retnl(PDSDK_IsActive () );
/*hb_retnl( PDSDK_ReadStatus() ) ;*/
}
HB_FUNC( CLOSEPRINTER )
{
hb_retnl( PDSDK_ClosePrinter() );
}
HB_FUNC( OPENPRINTER )
{
hb_retnl( PDSDK_OpenPrinter( FALSE, "" ) );
}
HB_FUNC( WRITEPRINTER )
{
hb_retnl( PDSDK_WritePrinterDirect( hb_parc( 1 ), hb_parclen(1) ) );
}
HB_FUNC( FLUSHPRINTER )
{
hb_retl( PDSDK_Flush() );
}
HB_FUNC( SELFTEST )
{
hb_retnl( PDSDK_SelfTest() );
}
#pragma ENDDUMP
Return to FiveWin para Pocket PC
Users browsing this forum: Google [Bot] and 23 guests