AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Drucken mit ShellExecute unter Win7

Drucken mit ShellExecute unter Win7

Ein Thema von citybreaker · begonnen am 12. Jun 2012 · letzter Beitrag vom 14. Jun 2012
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#11

AW: Drucken mit ShellExecute unter Win7

  Alt 14. Jun 2012, 18:04
Vielleicht kannst Du mit diesem Ansatz etwas anfangen
Delphi-Quellcode:
unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private-Deklarationen }
    Fcomplete:Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
procedure WebBrowserPrint(const AWebBrowser : TWebBrowser; PrinterDialog : Boolean = true);
var
  vaIn, vaOut: OleVariant;
begin
  if PrinterDialog then
    AWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)
  else
    AWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

procedure TForm5.Button1Click(Sender: TObject);
Const
 C_TIMEOUT=10000;
var
 wb:TWebBrowser;
 tc:Cardinal;
begin
   FComplete := false;
   wb:=TWebBrowser.Create(self);
   try
   wb.Left := -5000;
   wb.ParentWindow := self.Handle;

   wb.OnDocumentComplete := WebBrowser1DocumentComplete;
   wb.Navigate('C:\temp\Browser.html');
   tc := GetTickCount;
   while not FComplete and ((GetTickCount - tc) < C_TIMEOUT) do
      begin
         Application.ProcessMessages;
      end;
   finally
     wb.Free;
   end;

end;

procedure TForm5.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  TwebBrowser(ASender).OnDocumentComplete := nil;
   WebBrowserPrint(TwebBrowser(ASender));
   FComplete := true;
end;

end.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#12

AW: Drucken mit ShellExecute unter Win7

  Alt 14. Jun 2012, 19:26
Hallo,

schau doch mal bitte hier: http://www.ericphelps.com/batch/rundll/ und suche dort nach print HTML.

Dort steht eine Kommandozeile, mit der HTML-Seiten gedruckt werden können.
Eventuell kannst Du das ja in der Registry bei HTMLFile\shell\Print\command nutzen.
  Mit Zitat antworten Zitat
citybreaker

Registriert seit: 4. Feb 2003
925 Beiträge
 
#13

AW: Drucken mit ShellExecute unter Win7

  Alt 14. Jun 2012, 19:52
Danke Bummi für den Lösungsansatz, werde morgen ein bisschen damit rumspielen und ausprobieren.

Das mit dem Kommandozeile ist auch eine interessante Idee. Allerdings ist die genannte Datei "MSHTML.DLL"
nicht auf meinem PC vorhanden. Ich werde mal gucken, ob ich die irgendwo her bekomme. Die Frage ist
nur ob man die dann einfach mit weiter geben darf.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.753 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: Drucken mit ShellExecute unter Win7

  Alt 14. Jun 2012, 19:55
Diese gehört zum IE. Wäre wirklich komisch, wenn die bei dir fehlen würde
Markus Kinzler
  Mit Zitat antworten Zitat
citybreaker

Registriert seit: 4. Feb 2003
925 Beiträge
 
#15

AW: Drucken mit ShellExecute unter Win7

  Alt 14. Jun 2012, 21:49
Hast recht, habe die Datei gefunden. War nur in nem anderen Ordner drinne (system32 und nicht system). War wohl etwas voreilig.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 20:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf