Version des Printer Dialoges

[haentschman]

Hallöle...

Ich habe eine Funktion die mir den HDC des Printers liefert...soweit so gut.

Delphi-Quellcode:

function TBla.GetPrinterDC: HDC;
var
  PrintDialog: TPrintDlg;
begin
  FillChar(PrintDialog, SizeOf(PrintDialog), 0);
  PrintDialog.lStructSize := SizeOf(PrintDialog);
  PrintDialog.Flags := PD_RETURNDC or PD_HIDEPRINTTOFILE or PD_DISABLEPRINTTOFILE or PD_NOSELECTION;
  if PrintDlg(PrintDialog) then
    Result := PrintDialog.HDC
  else
    Result := 0;
end;

PS: DynaPDF braucht den HDC für den Druck.

Den Dialog (TPrintDlg) finde ich W95 mäßig. ...sprich alt.
TPrintDialog ist auch 'alt'. Imho ein Wrapper für TPrintDlg aus der API.

Ich hätte gern etwas "modernes" wie Bild "neu" (MSSQL Studio, Notepad++). Wo finde ich den? Wie komme ich an den HDC?
Oder der Dialog ist VCL mäßig coloriert... Bild FastReport

Danke für Infos...