Printing memo file record to laser printer

[DDunlap]

In reading memotran(), I get the impression the example is working with a dot matrix printer. I need to print to laser/inkjet printer.
Would I modify the modify the example under memotran using the dcprint feature ?

[rdonnay]

What example are you talking about?

This should not in any way be related to the type of printer.

[DDunlap]

I am attempting to print a memo file record.

procedure esm0044a(ordidno,notetype) // PRINT MEMEO
do case
case notetype = 1
SELECT(0)
USE WRKONOTE INDEX WRKONOTE
SEEK ordidno
IF .NOT. eof()
ELSE
use
return
ENDIF
endcase
do case
case notetype = 1
set print on
set console off
do while wkordnum = ordidno
? wkordnum
?? chr(27)+chr(97)+chr(3)
@ 1,0 dcprint say memotran(notes1," "," ")
?? chr(27)+chr(97)+chr(0)
enddo
use
set print off
set console on
case notetype = 2
case notetype = 3
endcase
return

[rdonnay]

Donald -

It looks like you haven't used the DCPRINT system before.

You are using commands like SET PRINT ON, SET CONSOLE OFF, Escape sequences, etc.

The DCPRINT system uses DCPRINT ON.

I suggest that you look at the samples in \exp19\samples\printer.