Page 1 of 1

legacy printing problem

Posted: Wed Nov 29, 2023 11:03 am
by 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

Re: legacy printing problem

Posted: Thu Dec 07, 2023 8:18 am
by 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