Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » secuencia pcl

Cobol - secuencia pcl

Volver
Nuevo Tema
<<>>
 
Vista:

secuencia pcl

Publicado por Patricia (1 intervención) el 04/08/2021 21:51:38
Buenas tardes. Busco la secuencia PCL para que me imprima un informe a doble cara. Gracias
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
Imágen de perfil de Alejandro

Configuración de secuencia PCL para impresión a doble cara

Publicado por Alejandro (300 intervenciones) el 12/09/2023 18:42:47
Para configurar la secuencia PCL en COBOL y lograr la impresión a doble cara, debes enviar los comandos PCL adecuados a tu impresora. Aquí tienes un ejemplo de cómo podrías hacerlo:

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
IDENTIFICATION DIVISION.
   PROGRAM-ID. ImpresionDobleCara.
   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 Commando-DobleCara PIC X(100).
   01 Printer-File PIC X(8) VALUE 'PRINTER1'.
   01 Pagina PIC 9(3) VALUE 1.
 
   PROCEDURE DIVISION.
   MAIN-PROCEDURE.
       MOVE ESCAPE TO Commando-DobleCara
       MOVE "&l1S" TO Commando-DobleCara(5:3)
       MOVE "Texto de la página 1" TO Commando-DobleCara(8:20)
       WRITE Commando-DobleCara TO Printer-File
       ADD 1 TO Pagina
 
       MOVE ESCAPE TO Commando-DobleCara
       MOVE "&l2S" TO Commando-DobleCara(5:3)
       MOVE "Texto de la página 2" TO Commando-DobleCara(8:20)
       WRITE Commando-DobleCara TO Printer-File
       ADD 1 TO Pagina
 
       MOVE ESCAPE TO Commando-DobleCara
       MOVE "&l1S" TO Commando-DobleCara(5:3)
       MOVE "Texto de la página 3" TO Commando-DobleCara(8:20)
       WRITE Commando-DobleCara TO Printer-File
       ADD 1 TO Pagina
 
       MOVE ESCAPE TO Commando-DobleCara
       MOVE "&l2S" TO Commando-DobleCara(5:3)
       MOVE "Texto de la página 4" TO Commando-DobleCara(8:20)
       WRITE Commando-DobleCara TO Printer-File
       ADD 1 TO Pagina
 
       .
       .
       .
       // Continúa con el resto de las páginas y contenido a imprimir.
 
       IF Pagina > 2 THEN
           MOVE ESCAPE TO Commando-DobleCara
           MOVE "&l0O" TO Commando-DobleCara(5:3)
           WRITE Commando-DobleCara TO Printer-File
       END-IF.
 
       STOP RUN.

Este es un ejemplo básico de cómo podrías usar comandos PCL en COBOL para imprimir un informe a doble cara. Asegúrate de adaptar los comandos PCL según las especificaciones de tu impresora y las necesidades de tu informe. Además, ten en cuenta que los comandos PCL pueden variar según el modelo y la marca de la impresora que estés utilizando.
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