La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  9758 - COMO IMPRIMIR LAS PANTALLAS DE PASCAL
Autor:  Alfredo Vallejos de la Sancha
No e podido inprimir las pantallas que diseño en pascal cuando mando a imprimir me imprime el puro codigo y yo nesesito las pantallas como le ago
  Respuesta:  Diego Romero
Como no haces referencia a si tus pantallas son en modo grafico o modo texto aqui van respuestas para ambas.
Para el modo grafico sirvete leer la respuesta a la pregunta 3003 en "preguntas contestadas" para el modo texto haz como sigue.
uses printer;
type
tpos=record { Posici¢n de la pantalla }
car:char;
attr:byte;
end;

tlinea=array [1..80] of tpos; { Linea de la Pantalla }
tpant=array [1..25] of tlinea; { Pantalla Entera }

var
pant:tpant absolute $8b00:$0000;
lineapant:string[80];
i,j:integer;
begin
for i:=1 to 25 do
begin
for j:=1 to 80 do lineapant[j]:=pant[i,j].car;
writeln(lst,lineapant);
end;
end.
esto toma de la pantalla el caracter (ignorando el atributo de color) arma una linea y envia esa linea a la impresora.