# Распечатка данных из DBGrid в Delphi без использования сторонних компонентов

Delphi , Компоненты и Классы , TDBGrid

Распечатка данных из DBGrid в Delphi без использования сторонних компонентов

Вопрос, поставленный перед разработчиками, заключается в том, как можно распечатать данные из TDBGrid без использования дополнительных компонентов. Это может быть необходимо, например, в учебных проектах, где установка новых компонентов не предусмотрена. В данной статье мы рассмотрим, как можно решить эту задачу, используя стандартные средства Delphi и Object Pascal.

Подготовка к печати

Для начала работы с печатью в Delphi, необходимо инициализировать компонент TPrinter и настроить параметры печати. Это можно сделать с помощью диалога настроек печати, который позволит пользователю выбрать принтер и настройки печати, например, ориентацию листа.

procedure TForm1.PrintDBGrid;
var
  Printer: TPrinter;
begin
  Printer := TPrinter.Create;
  try
    Printer.PrinterProperties;
    if Printer.Printers.Count = 0 then
      Exit;
    Printer.Printers[Printer.Printers.Default].ShowPrintDialog;
    Printer.BeginDoc;
    try
      // Ваш код для печати DBGrid
    finally
      Printer.EndDoc;
    end;
  finally
    Printer.Free;
  end;
end;

Печать заголовков и данных

Далее, чтобы распечатать данные из DBGrid, необходимо написать функцию для определения ширины каждого поля и процедуры для печати заголовков и данных. Важно правильно рассчитать ширину каждого поля и общую ширину строки, чтобы все данные умещались на странице и корректно переходили на новую страницу при необходимости.

function PrintFieldWidth(Field: TField): Integer;
var
  CharWidth: Integer;
  TitleWidth: Integer;
  FieldWidth: Integer;
begin
  CharWidth := Printer.Canvas.TextWidth('0');
  TitleWidth := Printer.Canvas.TextWidth(Field.DisplayName);
  FieldWidth := Field.DisplayWidth * CharWidth;
  if TitleWidth > FieldWidth then
    Result := TitleWidth + CharWidth
  else
    Result := FieldWidth + CharWidth;
end;

procedure PrintText(S: String; X, Y, W, H: Integer);
begin
  Printer.Canvas.TextRect(Rect(X, Y, X + W, Y + H), S);
end;

procedure PrintHeader(DataSet: TDataSet; X, Y, H: Integer);
var
  I: Integer;
  W: Integer;
begin
  for I := 0 to DataSet.FieldCount - 1 do
  begin
    if DataSet.Fields[I].Visible then
    begin
      W := PrintFieldWidth(DataSet.Fields[I]);
      PrintText(DataSet.Fields[I].FieldName, X, Y, W, H);
      X := X + W;
    end;
  end;
end;

procedure PrintRecord(DataSet: TDataSet; X, Y, H: Integer);
var
  I: Integer;
  W: Integer;
begin
  for I := 0 to DataSet.FieldCount - 1 do
  begin
    if DataSet.Fields[I].Visible then
    begin
      W := PrintFieldWidth(DataSet.Fields[I]);
      PrintText(DataSet.Fields[I].AsString, X, Y, W, H);
      X := X + W;
    end;
  end;
end;

procedure PrintDataSet(DataSet: TDataSet; APrint: TPrinter; Width: Integer);
var
  OldPos: TBookmark;
  I, X, Y, H: Integer;
begin
  if DataSet <> nil then
  begin
    H := Printer.Canvas.TextHeight('0');
    SaveAfterScroll := DataSet.AfterScroll;
    DataSet.AfterScroll := nil;
    try
      DataSet.DisableControls;
      OldPos := DataSet.GetBookmark;
      DataSet.First;
      X := 0;
      Y := H;
      PrintHeader(DataSet, X, Y, H);
      Inc(Y, H * 2);
      while not DataSet.Eof do
      begin
        if X + Width >= Printer.PageWidth then
        begin
          Printer.Canvas.Brush.Style := bsSolid;
          Printer.Canvas.Brush.Color := clWhite;
          Printer.Canvas.FillRect(Printer.MarginLeft, Printer.MarginTop, Printer.PageWidth, Printer.PageHeight);
          Printer.NewPage;
          X := 0;
          Y := H;
          PrintHeader(DataSet, X, Y, H);
          Inc(Y, H * 2);
        end;
        PrintRecord(DataSet, X, Y, H);
        X := X + Printer.Canvas.TextWidth(PrintFieldWidth(DataSet.Fields[DataSet.FieldCount - 1]));
        if X >= Printer.PageWidth then
          X := 0
        else
          X := X + Printer.Canvas.TextWidth(' ');
        Y := Y + H;
        DataSet.Next;
      end;
      DataSet.GotoBookmark(OldPos);
      DataSet.FreeBookmark(OldPos);
    finally
      DataSet.AfterScroll := SaveAfterScroll;
      DataSet.EnableControls;
    end;
  end;
end;

Вызов процедуры печати

Процедура печати данных из DBGrid должна вызываться при необходимости, например, через кнопку на форме.

procedure TForm1.PrintButtonClick(Sender: TObject);
var
  DataSet: TDataSet;
begin
  DataSet := YourDataSet; // Замените на ваш DataSet
  PrintDataSet(DataSet, Printer, Printer.PageWidth);
end;

Это базовый пример, который можно дополнить для обработки различных сценариев печати, таких как печать в ландшафтном режиме, печать на нескольких листах, добавление заголовков для каждой страницы и т.д.

Таким образом, используя предоставленные функции и процедуры, можно распечатать данные из TDBGrid без использования сторонних компонентов, что может быть полезно в учебных проектах или при ограничениях, связанных с установкой дополнительного ПО.

Создано по материалам из источника по ссылке.

Вопрос связан с реализацией функционала печати данных из компонента `TDBGrid` в среде разработки Delphi, используя стандартные средства без применения сторонних компонентов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::