Hi Jim,
I was able to make the
LBLRUN.PRG works by adding
if
Prow() = 60
?? chr(12)
endif
in the ExecuteLabel
procedure as shown below.
Thank you for your
help. Happy New Year to you and to everyone out there.
Carmelo
Rioflorido
STATIC
PROCEDURE ExecuteLabel
LOCAL nField, nMoreLines, aBuffer := {}, cBuffer
LOCAL v
// Load the current record into aBuffer
.......
// Add aBuffer to aBandToPrint
....
// trim
.....
// Print the band
....
// Add the
spaces between the label lines
....
// Clear out the band
AFILL( aBandToPrint, SPACE(
aLabelData[ LB_LMARGIN ] ) )
if Prow() = 60
?? chr(12)
endif
.....
RETURN
****************
> You need to add a CHR(12) at the
end of each page. Old DOS printers were
> generally form feed and automaticly ejected at the end
of each page.
> Newer printer generally don't do this and you gotta
tell them a new page
> is coming.
>
>
> Jim
>
> Carmelo Rioflorido wrote:
> > Someone suggested the NODOSIMP.EXE utility program
for printing to a non-LPT
> > printer with respect to the REPORT FORM clipper
function.
> >
> > It seems to work also with LABEL FORM. However, if
the labels are to be
> > printed on more than one sheets of labels (i.e., 3
x 10 sheet), only one
> > sheet is printed although the .txt file consists of
more than one sheet. I
> > observed that the .txt file does not contain the
page break marker.
> >
> > What should I add to the following code to insert
the page break in the .txt
> > file?
> >
> > set
printer to prolabel.txt
>
> label
form PROLASER to print NOCONSOLE ;
>
>
while ! eof() .and. inkey() != 27
>
> set
printer to
>
> run
nodosimp prolabel.txt 80 sel/mar
> >
> > Thanks for your help.
> >
> > Carmelo Rioflorido
> >
> > P.S. I attached the NODOSIMP file for those who
are interested in using it.
> >
> >