shc wrote:

> 먼저 감사합니다.

> e-mail 주소로 사연을 보낸는데 return 되어 오네요

> 이쪽 메일 주소가 안닌가요?(jekcm@yahoo.com)

>

> 한 번더 질문 올림니다

> 처음 선택한 텍스트 파일을 출력할 경우

> A4지에

> {

> pcl xl error

> subsystem: kernel

> error: illegalattribute

> operator: 0

> position: 1754

> }

> 이렇게 출력되고, 불규칙적으로 정상적 출력됩니다.

> ?????

>

>

>





?? ^^

위의 경운 왜 그런지 저도 모르겠군요.



모로 가도 서울만 가면 된다고, 정 안되시면

어차피 텍스트 화일의 출력이므로 도스 스타일로 찍으세요.

아래처럼..



procedure TForm1.Print1Click(Sender: TObject);

var

Line: Integer;

PrintText: TextFile; // declares a file variable

begin

If PrintDialog1.Execute Then

Begin

AssignPrn(PrintText); // assigns PrintText to the printer

Rewrite(PrintText); // creates and opens the output file

Printer.Canvas.Font := Memo1.Font; // assigns Font settings to the canvas

// writes the contents of the Memo1 to the printer object

For Line := 0 To Memo1.Lines.Count - 1 Do

Writeln(PrintText, Memo1.Lines[Line]);

CloseFile(PrintText); // Closes the printer variable

end;

end;



그럼~ 즐거운 프로그래밍 하시길~



P.S: 제 메일 주소는 ( jekcm@yahoo.co.kr ) 이구요

음.. 메일로 오는 질문은 답변드리지 못합니다.

죄송스러운 말씀이지만 너무 질문이 많이 와서..감당을 못하기 때문입니다.

그럼..