TJvPreviewControl-Probleme beim PDF Drucken

[Hallo_Thomas]

Hallo,
ich beschäftige mich gerad mit Seitenansicht fürs drucken. Und Irgendwie komm ich nicht weiter, das
im JvPreviewControl1 angezeigte Bild wird viel kleiner gedruckt als es angezeigt wird.
Ich Drucke es mit dem PDFCreator

Ich hoffe mir kann jemand helfen,Danke!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvExControls, JvComponent, JvPrvwDoc, ExtCtrls,
  JvComponentBase, JvPrvwRender,printers;

type
  TForm1 = class(TForm)
    JvPreviewControl1: TJvPreviewControl;
    Button1: TButton;
    Image1: TImage;
    JvPreviewRenderControl1: TJvPreviewRenderControl;
    JvPreviewPrinter1: TJvPreviewPrinter;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Brush.Color:=CLblue;
  Image1.Canvas.Ellipse(0,0,Image1.Width,Image1.Height);
  JvPreviewRenderControl1.CreatePreview(True);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TPrintDialog.Create(nil) do
    try
      if Execute then
        begin
          JvPreviewPrinter1.Printer:=Printer;
          JvPreviewPrinter1.Print;
        end;
    finally
      Free;
    end;
end;

end.

[DGL-luke]

Ich weiß nicht ob es dich beruhigt, aber vor ~ einem halben Jahr hab ich ergebnislos die selbe Frage gestellt... http://www.delphipraxis.net/internal...ct.php?t=88967 - der topic-titel spricht ja für sich...

[mkinzler]

Stimmt das Seitenformat des Druckertreibers mit dem im Programm überein?

[DGL-luke]

Überprüfe ich wo?

[Hallo_Thomas]

Noch nicht perfekt.aber ein Codeschnipsel der helfen dürfte!

Delphi-Quellcode:

  with JvPreviewControl1 do begin

  BeginUpdate;
  try
  DeviceInfo.PhysicalWidth:=Printer.PageWidth;
  DeviceInfo.PageWidth:=Printer.PageWidth;
  DeviceInfo.PageHeight:=Printer.PageHeight;
  DeviceInfo.PhysicalHeight:=Printer.PageHeight;
  DeviceInfo.LogPixelsX:=GetDeviceCaps(Printer.Handle, LOGPIXELSX);
  DeviceInfo.LogPixelsY:=GetDeviceCaps(Printer.Handle, LOGPIXELSY);
  DeviceInfo.OffsetLeft:=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
  DeviceInfo.OffsetTop:=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);

[DGL-luke]

aha! Sehr schön, Danke.

[DGL-luke]

Funktioniert! Danke!

Kleine Anmerkung: JvPreviewrenderControl.GeneratePreview sollte nach obenstehendem Code aufgerufen werden.