Moin,
ich möchte durch Doppelklick auf eine Exe automatisch eine HTML Datei drucken.
Im OnCreate meiner Form rufe ich folgendes auf:

markieren

Delphi-Quellcode:

var
  Pfad: String;
begin
  Pfad := ExtractFilePath(paramstr(0));
  ShellExecute(Handle,'Print',PChar(Pfad+'index.html'),'','',0);

Meine Frage ist nun, wie ich die Druckerauswahl unterdrucken kann und die Datei direkt am Standarddrucker ausgedruckt wird?

MfG David

Den Druckdialog eben nicht benutzen, sondern ohne Druckdialog und RAW-Druck zeilenweise an den Printer drucken. Der Standarddrucker hat den Printer-Index -1.

Oder willst Du die HTML nicht als Ascii-Datei drucken sondern eine erzeugte, gestaltete HTML-Seite?

Ich will die gestaltete HTML Seite drucken, nicht den Quelltext
und ich krieg diese Druckerauswahl einfach nicht weg ...

MfG David

Der Druckdialog wird von dem Programm aufgerufen, mit dem *.HTML verknüpft ist und welches du mit ShellExecute startest.

Wenn es nicht möglich ist, in den Optionen dieses Programmes den Druckdialog abzuschalten und sofortigen Druck zum Standard-Drucker einzustellen, musst du eben die Seitengestaltung über HTML-units intern erledigen und dann normal (intern) drucken.

Wobei es eh ziemlich willkürliche Ergebnisse liefert, was du da erzeugt hast; der Standarddrucker kann auf sonst etwas gesetzt sein, die HTML-Zuordnung auf ein anderes Programm verweien ...

gibts vll ne ganz andere Möglichkeit, über ein PrintDialog oder über ein TWebbrowser??

Muss diese Druckauswahl unbedingt rauskriegen

Du kannst es versuchen mit

zusammenfalten · markieren

Delphi-Quellcode:

ShellExecute( 0, 'printto', PChar(DocumentName), PChar(PrinterName), nil,SW_HIDE);


res := ShellExecute(
  0,
  'printto',
  //PChar('C:\temp\test.htm'), >> funktioniert bei mir nicht
  PChar('C:\temp\test.xls'), // funktioniert
  PChar('PDF24'),
  nil,
  SW_HIDE
);