다음과 같이 한 번 해보세요...



interface



uses

Printers;



.......

.......



procedure TForm1.Print_Select;

var

i, iTail : Integer;

PFH : TextFile;

begin

PrintDialog1.Execute;

AssignPrn(PFH);

Rewrite(PFH);

Printer.Canvas.Font := RadioGroup1.Font;



Writeln(PFH, ' ');

Writeln(PFH, ' ');

for i := 1 to XStrGrid1.RowCount - 1 do begin

Writeln(PFH, Format('%81s', [XStrGrid1.Cells[7, i]])); //세금계산서번호



Writeln(PFH, ' ');



Writeln(PFH, Format('%70s', [XStrGrid1.Cells[8, i]])); //사업자등록번호



Writeln(PFH, ' ');



Writeln(PFH, Format('%53s', [' '])

+ Format('%-25s', [XStrGrid1.Cells[2, i]]) //상호

+ Format('%-16s', [XStrGrid1.Cells[3, i]])); //대표명



Writeln(PFH, ' ');



Writeln(PFH, Format('%53s', [' '])

+ Format('%-70s', [XStrGrid1.Cells[11, i]])); //주소



Writeln(PFH, ' ');



Writeln(PFH, Format('%53s', [' '])

+ Format('%-25s', [XStrGrid1.Cells[9, i]]) //업태

+ Format('%-16s', [XStrGrid1.Cells[10, i]])); //업종



Writeln(PFH, ' ');

Writeln(PFH, ' ');

Writeln(PFH, ' ');

Writeln(PFH, ' ');



Writeln(PFH, Format('%8s', [Copy(MaskEdit1.Text, 1, 4)]) //발행년

+ Format('%3s', [Copy(MaskEdit1.Text, 5, 2)]) //발행월

+ Format('%4s', [Copy(MaskEdit1.Text, 7, 2)]) //발행일

+ Format('%4s', [XStrGrid1.Cells[12, i]]) //공란수

+ Format('%14s', [func_commadelete(XStrGrid1.Cells[5, i])]) //공급가액

+ Format('%10s', [func_commadelete(XStrGrid1.Cells[6, i])])); //세액



Writeln(PFH, ' ');

Writeln(PFH, ' ');

Writeln(PFH, ' ');



Writeln(PFH, Format('%7s', [Copy(MaskEdit1.Text, 5, 2)]) //발행월

+ Format('%4s', [Copy(MaskEdit1.Text, 7, 2)]) //발행일

+ Format('%-42s', [' 상품판매 총 ' +

XStrGrid1.Cells[4, i] + '건'])

+ Format('%16s', [XStrGrid1.Cells[5, i]]) //공급가액

+ Format('%12s', [XStrGrid1.Cells[6, i]])); //세액



for iTail := 1 to 6 do Writeln(PFH, ' ');



Writeln(PFH, Format('%82s', ['###']));



for iTail := 1 to 10 do Writeln(PFH, ' ');

end; { End of for i }



CloseFile(PFH);

end;