[Resolvido] Problemas em fazer rotina imprimir no Delphi 7

[rafaelcmartins 0]

Eu fiz o curso online de delphi IPED e tem um programa q eu não estou conseguindo rodar, para fazer uma impressão. Eu uso Delphi 7 e windows 7 (sou iniciante no delphi, não sei se isso influi em algo no programa, já que o curso q eu fiz era p Delphi 6.

 

procedure TfrmPrincipal.Imprimir1Click(Sender: TObject);

var

Texto : TextFile;

i : integer;

begin

if dlimprime.Execute then

with TfrmTexto(activeMDIChild) do

begin

assignPrn(Texto);

rewrite(Texto);

printer.canvas.font := memo1.font;

for i:=0 to memo1.lines.count do

writeln(Texto,memo1.lines);

closeFile(Texto);

end;

end;

 

end.

 

O delphi diz q os erros estão ocorrendo com o assignPrn e com o printer:

[Error] MDI_Principal.pas(168): Undeclared identifier: 'AssignPrn'

[Error] MDI_Principal.pas(170): Undeclared identifier: 'printer'

[Fatal Error] P_MDI.dpr(6): Could not compile used unit 'MDI_Principal.pas'

 

Será que alguém poderia me dar uma ajuda de como resolver isso? Será q tem algo a ver com o windows 7? Eu ouvi falar q o Delphi 2009 tá bugado. Será q o Delphi 7 tb é? Como deu pra perceber, sou iniciante em Delphi, tô começando a usar a menos d 1 mês. Então, por favor, compreendam minha ignorância.

 

Obrigado pela atenção.

[Chrnos 30]

Provavelmente está faltando alguma Unit na lista de uses do seu form... ou declaração de alguma variável. Sem ver o fonte todo fica difícil identificar.

 

[]'s

[fernando.fxsoft 0]

Inclua a unit Printers na sua cláusula uses.

[rafaelcmartins 0]

Muito obrigado pelo apoio de vocês. Realmente faltava um printets na cláusula uses. Foi só escrever Printers lá q o programa rodou. Sei q meu erro deve ter sido básico, mas ainda assim estou feliz, pq foi o programa mais complexo q eu fiz até o momento, incluindo Abrir, Salvar, Imprimir, Janelas em Cascata, Horizontal, Vertical, etc.

Mt obrigado pelo apoio. Problema resolvido. Nunca mais vou me esquecer do Printers.