Programación General > Pascal

 Como Imprimir...

(1/1)

Hao:
Fire...
Alguien me puede ayudar a imprimir en pascal si me facilitan el codigo se los agradeceria...

Que la fuerza los acompañe...
 :lightsabre:

Amilius:
Para imprimir texto en forma secuencial:

writeln(lst,'texto');

Los caracteres especiales tienen efecto, por ejemplo: retorno de carro.

Para imprimir gráficos:... Eso es complicado...  no es como en windows...

Esto sirve para imprimir texto en impresoras Epson lx-810, como la que tenía hace unos siglos: (Tienes que ordenar lo que estás imprimiento y recién en forma ordenada llamar a "imprime")

Nota: los comandos de impresión están listados en el manual de la impresora, por lo que varían con el fabricante.


--- Código: Text --- unit impresor; interface Uses printer; var lineas_avanzadas:real; procedure inicializa(opc:byte);procedure imprime(x,y:real;cad:string);procedure finaliza; implementationprocedure inicializa(opc:byte);begin write(lst,#27+'M'+#27+'x'); if opc=0 then   write(lst,#0) else begin   write(lst,#1);   write(lst,#27+'k'+chr(opc-1)) end; lineas_avanzadas:=0;end; procedure imprime(x,y:real;cad:string);var a:word;    x1,y1,y2:byte;    spa:string;begin x:=x/2.54; y:=(y-0.8)/2.54-lineas_avanzadas; lineas_avanzadas:=lineas_avanzadas+y; y1:=round(y*216) div 216; y2:=round(y*216) mod 216; x1:=round(x*12); spa:=''; if y1<>0 then begin   write(lst,#27+'3'+#216);   for a:=1 to y1 do write(lst,#13,#10) end; write(lst,#27+'3'+#0);  if y2<>0 then      write(lst,#27+'J'+chr(y2)); for a:=1 to x1 do    spa:=spa+' '; write(lst,spa); writeln(lst,cad); end; procedure finaliza;begin  write(lst,#27+'x'+#0,#12)end; end.  

Hao:
:gracias: Amilius..!!!

Ya lo pruebo....y te cuento si funciono..... :comp:
 
  por cierto q bien se mira tu nuevo avatar..... :yes:  :good:

Hasta la vista.. B)

Hao:
Funciona!! Funciona!!!

Gracias de nuevo..
chauuu :jumpie:

Navegación

[0] Índice de Mensajes