Page 1 of 1
Printing memo file record to laser printer
Posted: Mon Jan 12, 2015 1:19 pm
by 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 ?
Re: Printing memo file record to laser printer
Posted: Mon Jan 12, 2015 2:51 pm
by rdonnay
What example are you talking about?
This should not in any way be related to the type of printer.
Re: Printing memo file record to laser printer
Posted: Tue Jan 13, 2015 10:52 am
by 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
Re: Printing memo file record to laser printer
Posted: Tue Jan 13, 2015 4:33 pm
by 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.