Fastreport druckt nicht

[borstenei]

nein hier leider nicht
Es wird der Druckdialog aufgerufen aber er druckt nicht.
Ich kann z.b. direkt in eine PDF speichern ohne Probleme nur drucken ohne den Umweg der Vorschau ist nicht möglich.
Was übersehe ich hier?...
Wie könnte ich dem Problem auf die Spur kommen?

[himitsu]

Wenn keine Seiten generiert werden, dann wird auch nichts gedruckt.

Sicher, dass dort auch Seiten raus kommen können? DataSet nicht gefüllt, oder sowas.


In PrepareReport und Print reindebuggen und schauen was die (anders) machen.
Oder erstmal schauen ob und wann bei beiden Varianten zugehörige Events aufgerufen werden.
OnProgressStart
OnProgress
OnProgressStop
OnStartReport
OnStopReport
...
OnPrintPage
OnPrintReport
OnAfterScriptCompile
...
oder so

[borstenei]

Danke Dir für deine Tipps. Ich schaue mal wie ich da weiter komme.
..aber der Aufruf zum drucken unterscheidet sich wirklich nur in
PrintFrm.frxReport1.ShowReport oder
PrintFrm.frxReport1.Print ...sehr seltsam

[ensaron]

Hast du mal probiert, ob der Druck funktioniert, wenn du ihn ohne Druckdialog ausführst? Also wie in meinem ersten Quelltext-Block mit Zuweisung des Druckers anhand des Namens.

[borstenei]

Zitat von ensaron:

Hast du mal probiert, ob der Druck funktioniert, wenn du ihn ohne Druckdialog ausführst? Also wie in meinem ersten Quelltext-Block mit Zuweisung des Druckers anhand des Namens.

...tatsächlich dann druckt er direkt. Aber das ist so schlecht umsetzbar in der Praxis.. da das Programm an verschiedenen PC's zum Einsatz kommt und ich jetzt erst den Druckernamen ermitteln müsste und ich kann so nur wieder über Umwege die Druckoptionen ändern.
Was ist hier das Problem?

[Jasocul]

Zitat von borstenei:

...tatsächlich dann druckt er direkt. Aber das ist so schlecht umsetzbar in der Praxis.. da das Programm an verschiedenen PC's zum Einsatz kommt und ich jetzt erst den Druckernamen ermitteln müsste und ich kann so nur wieder über Umwege die Druckoptionen ändern.
Was ist hier das Problem?

Vermutlich musst du nach dem PrinterDialog den ausgewählten Drucker noch dem Fastreport zuweisen. Vielleicht greift FR nicht automatisch darauf zu.

[ensaron]

Zitat von Jasocul:

Vermutlich musst du nach dem PrinterDialog den ausgewählten Drucker noch dem Fastreport zuweisen.

Nein, die Anzeige des Druckerdialogs erfolgt in der Prozedur, die auch den Druck durchführt. Da ist kein manueller Eingriff notwendig.

@borstenei:
Hast du denn bei Auswahl des Druckers über den Druckdialog und bei dem funktionieren Ausdruck über Angabe des Druckernamens jeweils den gleichen Drucker benutzt?
Wenn ja, müsstest du mal in die Funktion TfrxPreviewPages.Print reindebuggen (Unit frxPreviewPages). Der einzige Unterschied beim Aufruf mit Druckernamen vs. mit Druckdialog sollte ja die Anzeige des Druckdialogs sein. Falls in den beiden Fällen der nachfolgende Quelltext unterschiedlich durchlaufen wird, hast du schonmal einen Anhaltspunkt an welcher Stelle dein Problem liegt.

[KodeZwerg]

Vielleicht hilft Dir ja einer der Schnippsel hier um ans Ziel zu kommen.

Delphi-Quellcode:

uses Printers;

// so könnte man den Standard-Drucker-Namen und sein Port ermitteln
procedure TForm1.Button1Click(Sender: TObject);
var
  MyPrinter, MyDriver, MyPort: array[0..100] of Char;
  DevMode: THandle;
begin
  Printer.GetPrinter(MyPrinter, MyDriver, MyPort, DevMode);
  Label1.Caption:=MyPrinter;
  Label2.Caption:=MyPort;
end;

// so könnte man alle Drucker ermitteln
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Assign(Printer.Printers);
end;

// so könnte man die DPI vom Drucker ermitteln
procedure TForm1.Button3Click(Sender: TObject);
begin
  Label3.Caption := IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSX)) +
                    ' x '+IntToStr(GetDeviceCaps(Printer.Handle, LOGPIXELSY))+
                    ' DPI (dots per inch)';
end;


// so könnte man die eingelegte papiergröße ermitteln
procedure TForm1.Button4Click(Sender: TObject);
var
  papermmx, papermmy: Extended;
begin
  Printer.BeginDoc;
  {
  PHYSICALWIDTH = Dots horizontal of the paper
  LOGPIXELSX    = DPI (Dots per Inch)
  25.4          = To calculte Inch to Millimeter
  }
  papermmx:=GetDeviceCaps(Printer.Canvas.Handle,PHYSICALWIDTH)/
            GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX) * 25.4;
  papermmy:=GetDeviceCaps(Printer.Canvas.Handle,PHYSICALHEIGHT)/
            GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY) * 25.4;
  with printer.canvas do
  begin
    TextOut(200,100,floattostr(papermmx)+' mm x '+floattostr(papermmy)+' mm');
  end;
  Printer.EndDoc;
end;