本程序用TURBO PASCAL 5.5编写在AST 386SX/20，超想汉字系统下运行通过，打印机为EPSON LQ1600K。
unit lq1600;
interface
uses graph,printer;
const
esc=#$1B;
procedure printgraph;
implementation
const
mode=39; {可修改打印模式为32，33，38，39，40}
procedure printgraph;
var
i,j,kh,m,msb,1sb,maxx,maxy:integer;
Begin
maxx:=getmaxx;
maxy:=getmaxy;
setviewport(0,0,maxx,maxy,false);
write(lst,ESC,'A',#$07);
LSB:=(maxx div 256);
msb:=(maxx mod 256)+1;
for j:=0 to maxy div 24 do
Begin
write(lst,ESC,'*',char(mode),char(msb),char(lst));
for i:=0 to maxx do
Begin
for h:=0to 2 do
Begin
m:=0;
for k:=0 to 7 do
Begin
m:=m shl 1;
if getpixel(i,j*24+h*8+k) <> 0
then inc(m);
end;
write(1st,char(m));
end;
end;
write(lst,#$0D,#$0A);
end;
end;{procedure lq1600}
end.
爱牛网络公司拥有十三年网络营销推广经验的北京网络营销公司,专业的网络营销团队为您提供网络营销策划,网络推广,网络优化,网络营销外包,网站推广,网络营销推广公司。服务电话13552895708
|
