Schreiber FooF
New Member
Hi All !
I have some problems to print boxes on my HP-8100...
I wanted to put boxes on a document, but there's no chars between 127 and 159. only "_"'s...
I use
-lng "French"
-cpcase French
-cpcoll Basic
-cpinternal iso8859-1
-cpstream iso8859-1
options in my startup.pf
How can I do to get those usefull semigraphics chars ???
Can I change my cp's without loose my accentuated chars???
Thank's...
I decided to get off my problem by using a code page change...
i used this program to search the page code that fits :
def var ligne as char format "x(35)".
def var i as integer.
output through lpr "-Plaser".
def var esc as char format "x(1)".
def var j as integer.
esc = chr(27).
j = 0.
do while j < 15.
put unformatted esc + "E" + chr(12) + chr(13).
put unformatted esc + "(" + string(j) + "U".
i = 13.
do while i < 256 :
Ligne = Ligne + " " + string(i) + " " + chr(i).
i = i + 1.
if length(ligne) > 30 then do :
put unformatted "(" + string(j) + ")" + ligne at 1 .
Ligne = "".
end.
End.
put unformatted Ligne + chr(12).
j = j + 1.
end.
I need to use the 10th code page, but when I only put unformatted the
put unformatted esc + "(" + string(10) + "U".
sequence the printer doesn't change code page...
??? why ??? how can I do it ???? Grr !
I have some problems to print boxes on my HP-8100...
I wanted to put boxes on a document, but there's no chars between 127 and 159. only "_"'s...
I use
-lng "French"
-cpcase French
-cpcoll Basic
-cpinternal iso8859-1
-cpstream iso8859-1
options in my startup.pf
How can I do to get those usefull semigraphics chars ???
Can I change my cp's without loose my accentuated chars???
Thank's...
I decided to get off my problem by using a code page change...
i used this program to search the page code that fits :
def var ligne as char format "x(35)".
def var i as integer.
output through lpr "-Plaser".
def var esc as char format "x(1)".
def var j as integer.
esc = chr(27).
j = 0.
do while j < 15.
put unformatted esc + "E" + chr(12) + chr(13).
put unformatted esc + "(" + string(j) + "U".
i = 13.
do while i < 256 :
Ligne = Ligne + " " + string(i) + " " + chr(i).
i = i + 1.
if length(ligne) > 30 then do :
put unformatted "(" + string(j) + ")" + ligne at 1 .
Ligne = "".
end.
End.
put unformatted Ligne + chr(12).
j = j + 1.
end.
I need to use the 10th code page, but when I only put unformatted the
put unformatted esc + "(" + string(10) + "U".
sequence the printer doesn't change code page...
??? why ??? how can I do it ???? Grr !