Pascal/Turbo Pascal - Dudas sobre impresión en pascal.

   
Vista:

Dudas sobre impresión en pascal.

Publicado por Roberto (14 intervenciones) el 11/01/2016 10:25:00
Saludos a la comunidad. ¿Sirve la impresión desde free pascal?, he leido sobre esto y dicen que no funciona. En un ejercicio me mandaron a imprimir. Si alguien puede aclararme sobre la impresión en pascal, cómo funciona, procedimiento,sus limitaciones, cosas así.


Por cierto probé este ejercicio, y aparece el mensaje exitcode 103.
1
2
3
4
5
6
7
8
program impresion;
uses crt,printer;
 
begin
	clrscr;
	write('Esto se queda en pantalla');
	write(lst,'Y esto va a la impresora');
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Dudas sobre impresión en pascal.

Publicado por crack81 (58 intervenciones) el 11/01/2016 19:28:34
Hola no conozco sobre el tema pero si encuentras alguna informacion que funcione haz el favor de postearla para revisarala
saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Dudas sobre impresión en pascal.

Publicado por ramon (2072 intervenciones) el 23/01/2016 12:09:21
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
{Mira esto pero ten presente que es para puerto lpt no para usb el dos no reconoce usb}
 
 {Puerto de impresora pero no usb}
 
program impresion;
 uses
    crt,printer;
 
   procedure imprime_olivetti;
   begin
       write(lst,#27#64); {inicializa impresora}
       write(lst,#12);
       write(lst,#27#85#49);
       write(lst,#27#108#2); {determina margen izquierdo}
       write(lst,#27#80); {seleciona 10p}
       write(lst,#12);
       writeln(lst);
       writeln(lst,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿','                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
       writeln(lst,'³   esto en una prueva    ³','                      ³  N£m.                ³');
       writeln(lst,'³            de           ³','                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
       writeln(lst,'³ Impresion con olivetti  ³');
       writeln(lst,'³                         ³');
       writeln(lst,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
       writeln(lst);
       write(lst,#27,#77); {seleciona 12p}
       write(lst,#12); {avance de pagina}
   end;
 
    procedure imprime_epson;
   begin
       write(lst,#27,#64);
       write(lst,#27,#85,#1);
       write(lst,#27,#71);
       write(lst,#27,#108,#2);
       write(lst,#27,#69);
       write(lst,#27,#120,#0);{sans serif}
       writeln(lst);
       writeln(lst,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿','                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
       writeln(lst,'³   esto en una prueva    ³','                      ³  N£m.                ³');
       writeln(lst,'³            de           ³','                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
       writeln(lst,'³   Impresion con Epson   ³');
       writeln(lst,'³                         ³');
       writeln(lst,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
       writeln(lst);
       write(lst,#27,#85,#0);
       write(lst,#27,#72);
       write(lst,#27,#70);
       write(lst,#27,#107,#0); {Romana}
       write(lst,#12); {avance de pagina}
   end;
 
   procedure imprime_laser;
   begin
       write(lst,chr(027),chr(040),chr(049),chr(048),chr(085));
       write(lst);
       writeln(lst);
       writeln(lst,'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿','                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
       writeln(lst,'³   esto en una prueva    ³','                      ³  N£m.                ³');
       writeln(lst,'³            de           ³','                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
       writeln(lst,'³   Impresion con laser   ³');
       writeln(lst,'³                         ³');
       writeln(lst,'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
       writeln(lst);
       write(lst,chr(12)); {avance de pagina}
   end;
 
   procedure menu;
   var
     salir : boolean;
     tecla : char;
   begin
       salir := false;
     repeat
        clrscr;
        writeln('    ***** Menu De Impresion *****');
        writeln;
        writeln('    1 = Impresion en Olivetti');
        writeln('    2 = Impresion en Epson');
        writeln('    3 = Impresion en Laser');
        writeln('    4 = Salir');
        writeln;
        writeln('  Por Puerto De Impresora No USB Elija Opcion');
        repeat
            tecla := readkey;
        until tecla in['1','2','3','4'];
     case tecla of
  '1' : imprime_olivetti;
  '2' : imprime_epson;
  '3' : imprime_laser;
  '4' : salir := true;
    end;
     until salir = true;
   end;
 
   begin
      menu;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar