legacy printing problem

[rdonnay]

A customer of mine has converted some old Clipper code and we can't make the SET PRINTER TO OBJECT <oPrinter> work.

I found an old test program and it doesn't work either.
I'm sure it worked in the past when I wrote it.

Does anyone use SET PRINTER TO OBJECT ?

FUNCTION Main()

LOCAL oPrinter, cPrinter := 'HP OfficeJet 4650 series'

oPrinter := XbpPrinter():new():create(cPrinter)
SET PRINTER TO OBJECT oPrinter
SET DEVICE TO PRINT

@ 10,10 SAY 'This is a test'
EJECT

SET DEVICE TO SCREEN
SET PRINTER TO

RETURN nil

[bobvolz]

Hi Roger;
Many years ago you distributed a .prg file called prchoice.prg. In it were functions Print_Choice and Print_On.

These became the default functions for ALL printing in our system. I would recommend your client convert to this.

Bob Volz