procedure TForm1.Drucken1;
var
  Image: TImage;
  pmaxx: Integer; // Breite der Ausgabe auf Drucker;
  pmaxy: Integer; // Entsprechend Höhe;
begin
  if PrintDialog1.Execute then
  begin
    pmaxx := Printer.PageWidth-1;
    pmaxy := Printer.PageHeight-1;

    Application.CreateForm(TForm2, Form2);
    Image := Form2.Image1;
    
    // Berechnung der Breite der Druckausgabe in Variable widt
    ...
    //
    Form2.ClientWidth := widt;
    Form2.ClientHeight := Round(widt*Power(2, 0.5)); // DIN A-Format einrichten
    Image.Picture.Bitmap.Width := widt;
    Image.Picture.Bitmap.Height := Round(widt*Power(2, 0.5)); // DIN A-Format einrichten

    with Image.Canvas do
    begin
      // Ausgabe auf Image.Canvas
      ...
      //
    end;

    Printer.Title := 'Druckausgabe';
    Printer.BeginDoc;
    Printer.Canvas.StrechDraw(Rect(0,0,pmaxx,pmaxy), Image.Picture.Bitmap);
    Printer.EndDoc;

    FreeAndNil(Form2);
  end;
end;

procedure TForm1.Drucken2;
var
  pmaxx : Integer;
  pmaxy : Integer;
begin
  if PrintDialog1.Execute then
  begin
    Printer.Title := 'Test';
    pmaxx := Printer.PageWidth-1;
    pmaxy := Printer.PageHeight-1;

    Printer.BeginDoc;
    Printer.Canvas.TextOut(pmaxx div 2 - Printer.Canvas.TextWidth('TEUEUZGJ') div 2,pmaxy div 15,'TEUEUZGJ');
    Printer.EndDoc;
  end;
end;