I want to make a dll out it but actual hp() functions are not in the prg 
files I have.

hi,

>I want to make a dll out it but actual hp() functions are not in the prg 
>files I have.

as it is a Cl*pper LIB you can NOT use it for Xbase++

greetings by OHR
Jimmy

I know that.  I have the source for prg's but I do not have
the source code for the hp() functions.

The hp() functions are the ones that send the Escape sequences to the 
printer.

I am hoping someone has the source for those.



"AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message 
news:1a4a886b$47e3b450$40b3@news.alaska-software.com...
> hi,
>
>>I want to make a dll out it but actual hp() functions are not in the prg 
>>files I have.
>
> as it is a Cl*pper LIB you can NOT use it for Xbase++
>
> greetings by OHR
> Jimmy
>

hi,

> The hp() functions are the ones that send the Escape sequences to the
> printer.
>
> I am hoping someone has the source for those.

attach DBF with 361 Printer ESC Sequence

... but why do you need it for Xbase++ ? did you try XbpPrinterDialog() ?

greetings by OHR
Jimmy 

I agree xbpprint classes are much much better. They use the windows
drivers and are much more. I have included some functions and classes to
help convert existing Clipper @ Say code to Windows printing. Also
includes a class to print labels

JIm

AUGE_OHR wrote:
> hi,
> 
>> The hp() functions are the ones that send the Escape sequences to the
>> printer.
>>
>> I am hoping someone has the source for those.
> 
> attach DBF with 361 Printer ESC Sequence
> 
> ... but why do you need it for Xbase++ ? did you try XbpPrinterDialog() ?
> 
> greetings by OHR
> Jimmy 
> 
>

Hello Richard,

See the code below, works ok for me.

Regards,
Jack Duijf

LOCAL cPrinter       := "Hp Laserjet 6L"   Windows printer name
LOCAL oPrinter       := xbpPrinter():New():Create(cPrinter)
LOCAL nStatus        := oPrinter:PrinterStatus()
LOCAL cMsg           := ""

do while nStatus <> XBPPRN_STATUS_READY
   do case
      case nStatus = XBPPRN_STATUS_OFFLINE
         cMsg        := "is off line."
      case nStatus = XBPPRN_STATUS_NOPAPER
         cMsg        := "geen papier meer."
   otherwise
         cMsg        := "niet gereed."
   endcase
   cMsg              := As(AllTrim(oPrinter:devname)) + CR + cMsg
   MsgBox(cMsg)
   nStatus           := oPrinter:PrinterStatus()
Enddo
 Printer is open
SET PRINTER TO OBJECT oPrinter
SET PRINTER ON
SET CONSOLE OFF
?? Chr(27) + ... + Chr(13)   Raw (PCL) data
SET CONSOLE ON
SET PRINTER OFF
SET PRINTER TO
oPrinter:Destroy()



"Richard A. Pulliam" <clippersolutions@bellsouth.net> schreef in bericht 
news:673358b2$6075901e$434a@news.alaska-software.com...
>I know that.  I have the source for prg's but I do not have
> the source code for the hp() functions.
>
> The hp() functions are the ones that send the Escape sequences to the 
> printer.
>
> I am hoping someone has the source for those.
>
>
>
> "AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message 
> news:1a4a886b$47e3b450$40b3@news.alaska-software.com...
>> hi,
>>
>>>I want to make a dll out it but actual hp() functions are not in the prg 
>>>files I have.
>>
>> as it is a Cl*pper LIB you can NOT use it for Xbase++
>>
>> greetings by OHR
>> Jimmy
>>
>
>

Thanks for all your help and ideas.

The customer really does not want to change very much.
He would be very happy if I could simply recompile
with XBase++ with no changes.  I suggested to him about
using the printer objects an advantage of that.

I have what I believe is the prg's of Esc40 minus the
actual source that sends the Esc sequences to the printer.
Easy to find what they are from the internet, but, I am trying to avoid 
reinventing the wheel.



<Jack Duijf> wrote in message 
news:1ab155d4$58836d32$76d@news.alaska-software.com...
> Hello Richard,
>
> See the code below, works ok for me.
>
> Regards,
> Jack Duijf
>
> LOCAL cPrinter       := "Hp Laserjet 6L"   Windows printer name
> LOCAL oPrinter       := xbpPrinter():New():Create(cPrinter)
> LOCAL nStatus        := oPrinter:PrinterStatus()
> LOCAL cMsg           := ""
>
> do while nStatus <> XBPPRN_STATUS_READY
>   do case
>      case nStatus = XBPPRN_STATUS_OFFLINE
>         cMsg        := "is off line."
>      case nStatus = XBPPRN_STATUS_NOPAPER
>         cMsg        := "geen papier meer."
>   otherwise
>         cMsg        := "niet gereed."
>   endcase
>   cMsg              := As(AllTrim(oPrinter:devname)) + CR + cMsg
>   MsgBox(cMsg)
>   nStatus           := oPrinter:PrinterStatus()
> Enddo
>  Printer is open
> SET PRINTER TO OBJECT oPrinter
> SET PRINTER ON
> SET CONSOLE OFF
> ?? Chr(27) + ... + Chr(13)   Raw (PCL) data
> SET CONSOLE ON
> SET PRINTER OFF
> SET PRINTER TO
> oPrinter:Destroy()
>
>
>
> "Richard A. Pulliam" <clippersolutions@bellsouth.net> schreef in bericht 
> news:673358b2$6075901e$434a@news.alaska-software.com...
>>I know that.  I have the source for prg's but I do not have
>> the source code for the hp() functions.
>>
>> The hp() functions are the ones that send the Escape sequences to the 
>> printer.
>>
>> I am hoping someone has the source for those.
>>
>>
>>
>> "AUGE_OHR" <AUGE_OHR*AT*WEB.DE> wrote in message 
>> news:1a4a886b$47e3b450$40b3@news.alaska-software.com...
>>> hi,
>>>
>>>>I want to make a dll out it but actual hp() functions are not in the prg 
>>>>files I have.
>>>
>>> as it is a Cl*pper LIB you can NOT use it for Xbase++
>>>
>>> greetings by OHR
>>> Jimmy
>>>
>>
>>
>