Via IndputBox, at tildele variablen en værdi.

Forsøgt med forskellige koder, at udskriv Image1.Picture.Graphic.

Prøver med IndputBox, at tildele printeren en skalerings værdi,
også hvis der ikke er fortaget nogen input.
Og med 185 som Default værdi, hvis der ikke er fortaget nogen input.

Hvis talet 185 indsætte i stedet for variablen "skalering"
så virker det.
Vil du hjælpe mig med at løse problemmet?

Input forsøg 1.

procedure TfrmProfil.btnSkaleringClick(Sender: TObject);
begin
skalering:= IndtastKommaTal('Tilpasning for udskrivning på printer',185);
try
  begin
    skalering:= 185;
    edtSkalering.Text:= FloatToStr(skalering);
    //Showmessage(FloatToStr(skalering));
  end;
  except
end;
end;


Input forsøg 2.

procedure TfrmProfil.btnSkaleringClick(Sender: TObject);
begin
skalering:=StrToIntDef(inputbox('Indskriv antal sektioner','Heltal','10'),-1);
if skalering <= 1 then skalering:= 185;
end;


Fejlen opstår her når der forsøges udprintning.

procedure TfrmProfil.btnPrintClick(Sender: TObject);
var
  R: TRect;
begin
  Printer.Orientation := poLandscape;
  if PrinterSetupDialog1.Execute then
  begin
    Printer.BeginDoc;  // **
    fmProfilValg.StandartTekstNaca4415;
  with Printer do
    try
      tilpasX:=Profilbredde[18]/skalering;***Her opsstår fejmeddelsen "EDivByZero"
      tilpasY:=Profilbredde[18]/skalering;***Her opsstår fejmeddelsen "EDivByZero"

      ScaleX := GetDeviceCaps(Handle, logPixelsX) / PixelsPerInch; //division der giver decimaler
      ScaleY := GetDeviceCaps(Handle, logPixelsY) / PixelsPerInch;
      R := Rect(0, 0, trunc(Image1.Picture.Width * ScaleX * tilpasX),
      trunc(Image1.Picture.Height * ScaleY * tilpasY));
      Canvas.StretchDraw(R, Image1.Picture.Graphic);  // **
    finally
    EndDoc;  // **
  end;
end;
btntegn.Click;
end;