PrinterIndex gesetzt... trotzdem Standarddrucker

[haentschman]

Moin...

Eher durch Zufall bin ich auf ein Problem gestoßen, weil ich mir nicht vorstellen konnte daß da etwas nicht funktionieren sollte.

Delphi-Quellcode:

procedure TdBK_Print.Print(Report: TfrxReport; Design, Dialog: Boolean);
begin
  if Report.PrepareReport(True) then
  begin
    Printer.PrinterIndex:= FPrinterID;
    Report.PrintOptions.ShowDialog:= Dialog;
    if Design then
      Report.DesignReport(True)
    else
      Report.Print;
  end;
end;

FPrinterID ist richtig gesetzt entsprechend einer Auswahl aus dem Drucker Dialog in den Einstellungen. Trotzdem kommen alle Ausdrucke auf dem Standarddrucker an

Was unter 2007 noch problemlos funktionierte geht unter XE nicht mehr ? Wo ist der Trick ?

Danke für Tipps...

[Satty67]

Ich kenne mich nicht im Detail mit dem Reportdesigner aus, aber evtl. setzt ein
Report.PrintOptions.ShowDialog:= Dialog; .
auch den Drucker zurück, wenn Dialog = False.

Ich würde mal versuchen, bei Dialog = False den PrinterIndex nochmal nach setzen der Property ShowDialog zuzuweisen.

[haentschman]

Hallo Satty67...

ein Versuch war es Wert... Ich habe die 2 Zeilen auch vertauscht. Leider ist kein positives Ergebnis zu verzeichnen.
Zum Zeitpunkt Report.Print ist der Inhalt von Printer.PrinterIndex so wie er sein soll

Danke

[pHL]

Ich kenn mich mit den Reports auch nicht gut aus, aber kann es sein dass du den Drucker so setzen musst:

Report.PrintOptions.Printer := FPrintId;

Mfg.
pHL

[haentschman]

Danke erst mal...

Printer in PrintOptions ist ein String. Wenn ich mir den String über die ID aus Printer hole funktioniert das ganze...

Delphi-Quellcode:

procedure TdBK_Print.Print(Report: TfrxReport; Design, Dialog: Boolean);
begin
  if Report.PrepareReport(True) then
  begin
    Report.PrintOptions.ShowDialog:= Dialog;
    Report.PrintOptions.Printer:= Printer.Printers[FPrinterID];
    //Printer.PrinterIndex:= FPrinterID;
    if Design then
      Report.DesignReport(True)
    else
      Report.Print;
  end;
end;

Das erklärt aber immer noch nicht weshalb obiger Code unter 2007 via PrinterIndex funktioniert und unter XE nicht mehr...

[pHL]

Zitat von haentschman:

Printer in PrintOptions ist ein String. Wenn ich mir den String über die ID aus Printer hole funktioniert das ganze...

Danke, habe ich nicht gewusst

[Satty67]

Zitat von haentschman:

Printer in PrintOptions ist ein String

Dann bleibt ja nur noch, das hier ein String falsch interpretiert wird (Ansi/Unicode), zumal das wohl auch zu 99% immer das Problem bei 2007 -> XE Portierungen der Fall sein wird.

Evtl. mal mit expliziter Konvertierung experimentieren. (bzw. wenn ich das richtig lese, ist es schon gelöst?)