如何通过按钮单击打印出纸张

Question

我正在寻找一种使用按钮打印功能的方法，onclick功能，请给我一个例子：

使用buttonclick，delphi会将某些图像随机放置在每个其他对象旁边，我希望将它们打印在纸上。每次单击我都希望将那些图片（相同或不同的按钮）打印在一张纸上。

我尝试在工具栏中搜索与delphi和打印机的任何连接，但没有运气。

任何建议都是有帮助的，谢谢！

Answer 1

原则上，使用Delphi进行打印非常容易。您基本上就像使用VCL（即使用Windows GDI）在屏幕上的画布上那样在页面的画布上进行绘画。

这是一个非常简单的示例：

procedure PrintRects;
const
  Offset = 100;
  RectCountY = 8;
  RectCountX = 4;
var
  S: string;
  TitleRect: TRect;
  MainRect: TRect;
  j: Integer;
  i: Integer;
  RectWidth,
  RectHeight: Integer;
  R: TRect;

  function GetRectRect(X, Y: Integer): TRect;
  begin
    Result := Rect(
      MainRect.Left + X * RectWidth,
      MainRect.Top + Y * RectHeight,
      MainRect.Left + (X + 1) * RectWidth,
      MainRect.Top + (Y + 1) * RectHeight
    );
  end;

begin

  with TPrintDialog.Create(nil) do
    try
      if not Execute then
        Exit;
    finally
      Free;
    end;


  Printer.BeginDoc;
  try

    Printer.Canvas.Font.Size := 42;
    S := 'My Collection of Rects';

    TitleRect := Rect(
      Offset,
      Offset,
      Printer.PageWidth - Offset,
      Offset + 2 * Printer.Canvas.TextHeight(S)
    );

    MainRect := Rect(
      Offset,
      TitleRect.Bottom + Offset,
      Printer.PageWidth - Offset,
      Printer.PageHeight - Offset
    );

    RectWidth := MainRect.Width div RectCountX;
    RectHeight := MainRect.Height div RectCountY;

    Printer.Canvas.TextRect(TitleRect, S, [tfSingleLine, tfCenter, tfVerticalCenter]);

    for j := 0 to RectCountY - 1 do
      for i := 0 to RectCountX - 1 do
      begin
        R := GetRectRect(i, j);
        Printer.Canvas.Brush.Color := RGB(Random(255), Random(255), Random(255));
        Printer.Canvas.FillRect(R);
      end;

  finally
    Printer.EndDoc;
  end;

end;

这将显示以下页面：
不用说，您可以在此网格中的此处打印图像，而不是单色矩形。
因此，如果您知道如何在表单上绘图（使用TCanvas，即Windows GDI），则可以使用相同的方法在打印页面上绘图。