unit MainFrm;
interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Grids, DBGrids, DB, DBTables, Menus, StdCtrls, Spin,
  Gauges, ExtCtrls, ComCtrls;

type
  TMainForm = class(TForm)
    DS_print_contents: TDataSource;
    DBGrid1: TDBGrid;
    lblColumns: TLabel;
    i_header: TEdit;
    lblHeader: TLabel;
    B_header_font: TButton;
    FontDialog: TFontDialog;
    B_print: TButton;
    Q_print_contents: TQuery;
    StringGrid1: TStringGrid;
    procedure B_header_fontClick(Sender: TObject);
    procedure B_printClick(Sender: TObject);
  private
    PixelsInInchx: integer;
    LineHeight: Integer;
   { Keeps track of vertical space in pixels, printed on a page }
    AmountPrinted: integer;
   { Number of pixels in 1/10 of an inch. This is used for line spacing }
    TenthsOfInchPixelsY: integer;
    procedure PrintLine(Items: TStringList);
    procedure PrintHeader;
    procedure PrintColumnNames;
  end;

var
  MainForm: TMainForm;

implementation
uses printers, AbortFrm;

{$R *.DFM}

procedure TMainForm.PrintLine(Items: TStringList);
var
  OutRect: TRect;
  Inches: double;
  i: integer;
begin
  // 確定打印邊框大小
  OutRect.Left := 0;
  OutRect.Top := AmountPrinted;
  OutRect.Bottom := OutRect.Top + LineHeight;
  With Printer.Canvas do
    for i := 0 to Items.Count - 1 do
    begin
      Inches := longint(Items.Objects[i]) * 0.1;
      // 確定右邊界
      OutRect.Right := OutRect.Left + round(PixelsInInchx*Inches);
      if not Printer.Aborted then
       // 打印單元格內容
        TextRect(OutRect, OutRect.Left, OutRect.Top, Items[i]);
      // 連接邊界
      OutRect.Left := OutRect.Right;
    end;
  //增加已打印的高度
  AmountPrinted := AmountPrinted + TenthsOfInchPixelsY*2;
end;

procedure TMainForm.PrintHeader;
var
  SaveFont: TFont;
begin
  //用于保存當前字體
  SaveFont := TFont.Create;
  try
    Savefont.Assign(Printer.Canvas.Font);
    Printer.Canvas.Font.Assign(i_header.Font);
    // 打印表頭
    with Printer do
    begin
      if not Printer.Aborted then
        Canvas.TextOut((PageWidth div 2)-(Canvas.TextWidth(i_header.Text)
                         div 2),0, i_header.Text);
     // 增加已打印的行高AmountPrinted
      AmountPrinted := AmountPrinted + LineHeight+TenthsOfInchPixelsY;
    end;
    // 恢復原有的字體
    Printer.Canvas.Font.Assign(SaveFont);
  finally
    SaveFont.Free;
  end;
end;

procedure TMainForm.PrintColumnNames;
var
  ColNames: TStringList;
  i:integer;
begin
  //ColNames用于保存標題打印信息
  ColNames := TStringList.Create;
  try
    // 用粗體下劃線打印標題
    Printer.Canvas.Font.Style := [fsBold, fsUnderline];

    with ColNames do
    begin
      // 保存標題和寬度
      for i:=0 to Q_print_contents.FieldCount-1 do
      begin
        AddObject(StringGrid1.Cells[0,i],  pointer(StrToInt(StringGrid1.Cells[1,i])));
      end;
    end;

    PrintLine(ColNames);
    Printer.Canvas.Font.Style := [];  
  finally
    ColNames.Free;   // 釋放ColNames
  end;
end;

procedure TMainForm.B_header_fontClick(Sender: TObject);
begin
  //初始字體選擇對話框的字體
  FontDialog.Font.Assign(i_header.Font);
  if FontDialog.Execute then
    //修改標題字體
    i_header.Font.Assign(FontDialog.Font);
end;

procedure TMainForm.B_printClick(Sender: TObject);
var
  Items: TStringList;
  i:integer;
begin
  //MainForm.Enabled := false;
  AbortForm.Show;
  {
  //Items用于保存打印一行的格式信息
  Items := TStringList.Create;
  try
    //確定水平方向每inch的像素數
    PixelsInInchx := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
    TenthsOfInchPixelsY := GetDeviceCaps(Printer.Handle,
                            LOGPIXELSY) div 10;
    AmountPrinted := 0;
    MainForm.Enabled := false; // 主打印窗體無效
    try
      Printer.BeginDoc;
      AbortForm.Show;
      Application.ProcessMessages;
      //用當前字體計算一行文本的高度
      LineHeight := Printer.Canvas.TextHeight('X')+TenthsOfInchPixelsY;
      if i_header.Text <> '' then
        PrintHeader;
      PrintColumnNames;
      Q_print_contents.First;
      //將每行內容和寬度保存在Items中
      while (not Q_print_contents.Eof) or Printer.Aborted do
      begin

        Application.ProcessMessages;
        with Items do
        begin
          for i:=0 to Q_print_contents.FieldCount-1 do
          begin
            AddObject(Q_print_contents.Fields[0].AsString,
                        pointer(StrToInt(StringGrid1.Cells[1,i])));
          end;//end for
        end;

        PrintLine(Items);
        //判斷分頁
        if AmountPrinted + LineHeight > Printer.PageHeight then
        begin
          AmountPrinted := 0;
          if not Printer.Aborted then
            Printer.NewPage;
          PrintHeader;
          PrintColumnNames;
        end;
        Items.Clear;
        Q_print_contents.Next;
      end;//記錄打印完畢
      AbortForm.Hide;
      if not Printer.Aborted then
        Printer.EndDoc;
    finally
      MainForm.Enabled := true;
    end;
  finally
    Items.Free;
  end;
  }
end;

end.