Ausdruck ist kleiner als Vorschau :( Aber warum ?

[JoelH]

ich hab eine Vorschau auf dem Bildschirm, da kann man auch die FontSize einstellen. DIese übernehme ich dann auch für den Ausdruck, leider druckt der Drucker die Zeichen aber kleiner :( Warum nur ?

Die Programmdetails sind praktisch dieselben, einmal die Paintbox

Delphi-Quellcode:

paintbox1.canvas.font.name := aktfont;
       paintbox1.canvas.Pen.color := clCaptionText;
       fontsize := round(Main.aktuelleschriftgroesse/faktor);
       paintbox1.canvas.font.size := fontsize;
       fontheight := paintbox1.canvas.font.height;

und hier die Druckerroutine

Delphi-Quellcode:

Printer.canvas.font.name := aktfont;
  fontsize := round((Main.aktuelleschriftgroesse/faktor)*faktor2);
  Printer.canvas.font.size := fontsize;
  fontheight := Printer.Canvas.Font.Height;
  showmessage(IntToStr(fontheight));

faktor und faktor2 sind beide 1, also irrelevant. aktfont ist die der aktuelle Font.

Hat einer eine Idee woran es liegt ? Oder ist diese Ungenauigkeit einfach eine normale Begebenheit ?

[Luckie]

Der Drucker wird eien andere Auflösung als dein Bildschirm haben. Das könnte ich mir vorstellen, dass es daran liegt.

[Christian Seehase]

Moin Joel,

druckt er die Zeichen jetzt kleiner als angegeben, oder kleiner als auf dem Bildschirm dargestellt?
Letzteres wäre denkbar, da ein Bildpunkt selten die Grösse eines Druckpunktes haben wird.

[JoelH]

@Lukie
aber selbst wenn er eine andere hat, Fontsize ist Fontsize dachte ich. Sprich der selbe Font ist in der selben Grösse gleich gross, egal auf welchen Gerät, ansonsten würde es ja keinen Sinn machen.

@Christian Seehase
Seltsamerweise druckt er kleiner als die Anzeige gross ist, die Ränder stimmen aber mit den Blatträndern überein, also ich hab da ne Rectangle drüber gelegt und die ist Identisch mit dem A4 Blatt wenn ich es auf den Bildschirm halte.


Könnte es vieleicht am nichtdruckbaren Rand liegen, dass er mir den abzieht und dadurch die Schrift kleiner wird !? Weil die physikalisch Druckbare Seite ja dadurch kleiner ist als das Blatt an sich und es diesen Rand aufem Bildschirm gar nicht gibt !?

[Christian Seehase]

Moin Joel,

die Ursache kann ich Dir leider auch nicht sagen, allerdings hatte ich einen ähnlichen Effekt letztens auch.
Dokument (Tabelle mit Adressaufklebern) gedruckt aus Word 95 unter Windows 95 => alles OK
Dokument gedruckt aus Word 2000 unter Windows 2000 => zu klein, und zwar, nachmessbar, kleiner als definiert.
Ich hatte vorgegeben, dass eine Zelle 38mm hoch sein soll, gedruckt war sie dann nur 36mm hoch :shock:
Woran das gelegen hat... *schulterzuck*

[JoelH]

Ich hab mir jetzt mal eine kleine Testunit gebaut und es differiert wirklich um einige Prozent. Je nach Schriftgrösse und Art um ca. 17%.

Hier die Testdatei

Delphi-Quellcode:

unit paintprint;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, printers,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    paintbox: TPaintBox;
    Button1: TButton;
    Button2: TButton;
    fnt: TFontDialog;
    edt: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyDruck;
    procedure MyPaint;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  na : string;
  diffv, diffh : integer;

implementation

{$R *.DFM}

procedure TForm1.MyDruck;

var
    outdc                          : HDC;      { PrinterCanvasHandle }
    bx,by,texter,textheight        : integer;
    fontsize, fontheight           : integer;
    hres,vres,hsiz,vsiz            : integer;  { Canvasdimensionen }
    help                           : string;
    helperh,helperv                : single;
    fonthoehe                      : integer;
begin
  Printer.Orientation := poPortrait;
  Printer.BeginDoc;
  outdc := Printer.Canvas.handle;
  hres := GetDeviceCaps(outdc,HORZRES);   {display width in pixels}
  vres := GetDeviceCaps(outdc,VERTRES);   {display height in pixels}
  hsiz := GetDeviceCaps(outdc,HORZSIZE);  {display width in mm}
  vsiz := GetDeviceCaps(outdc,VERTSIZE);  {display height in mm}
  Printer.canvas.font.name := na;
  fontsize := StrToInt(edt.text);
  Printer.canvas.font.size := fontsize;
  fontheight := Printer.Canvas.Font.Height;
  fonthoehe := round((((-1)*fontheight)/hres)*hsiz);
  bx := 10;
  by := 10;
  texter := Printer.Canvas.TextWidth('TEXTTEST');
  textheight := Printer.Canvas.TextHeight('TEXTTEST');
  texter := round((texter/hres)*hsiz);
  textheight := round((textheight/vres)*vsiz);
  helperh := texter/diffh;
  helperv := textheight/diffv;
  help := 'TextWidth : '+InttoStr(texter)+' mm ## Textheight : '+InttoStr(textheight)+' mm'+
          #13+#10+'HDiff : '+FloatToStr(helperh)+' ## VDiff : '+FloatToStr(helperv)+
          #13+#10+'Fontheight '+InttoStr(fonthoehe)+' mm';
  showmessage(help);
  Printer.canvas.TextOut(bx,by,'TEXTTEST');
  Printer.EndDoc;
end;

procedure TForm1.MyPaint;

var
    outdc                          : HDC;      { CanvasHandle }
    bx,by,texter,textheight        : integer;
    fontsize, fontheight           : integer;
    hres,vres,hsiz,vsiz            : integer;  { Canvasdimensionen }
    help                           : string;
    fonthoehe                      : integer;
begin
  outdc := paintbox.Canvas.handle;
  hres := GetDeviceCaps(outdc,HORZRES);   {display width in pixels}
  vres := GetDeviceCaps(outdc,VERTRES);   {display height in pixels}
  hsiz := GetDeviceCaps(outdc,HORZSIZE);  {display width in mm}
  vsiz := GetDeviceCaps(outdc,VERTSIZE);  {display height in mm}
  Paintbox.canvas.font.name := na;
  fontsize := StrToInt(edt.text);
  Paintbox.canvas.font.size := fontsize;
  fontheight := Paintbox.Canvas.Font.Height;
  fonthoehe := round((((-1)*fontheight)/hres)*hsiz);
  bx := 10;
  by := 10;
  texter := Paintbox.Canvas.TextWidth('TEXTTEST');
  textheight := Paintbox.Canvas.TextHeight('TEXTTEST');
  texter := round((texter/hres)*hsiz);
  textheight := round((textheight/vres)*vsiz);
  help := 'TextWidth : '+InttoStr(texter)+' mm ## Textheight : '+InttoStr(textheight)+' mm'+
          #13+#10+'Fontheight '+InttoStr(fonthoehe)+' mm';;
  showmessage(help);
  Paintbox.canvas.TextOut(bx,by,'TEXTTEST');
  diffh := texter;
  diffv := textheight;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyPaint;
 MyDruck;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  fnt.Execute;
  na := fnt.Font.Name;
  showmessage(na);
end;

end.

Ist einfach eine Form mit 2 Buttons, einem Fontdialog(fnt), einer Paintbox(Paintbox) und einem Editfeld(edt) zum eingeben der FontSize.