Exportar pagina de WebBrowser a PDF

[pgranados]

Ahora regresa un PDF en blanco

La pagina que debo de imprimir es esta: https://siat.sat.gob.mx/app/qr/faces..._BIHE8804258H1

No se si a ti te regrese el pdf con el contenido

[Casimiro Noteví]

A mí me dice: "Printer is not currently printing".
Supongo que será porque no tengo impresora.

[Casimiro Noteví]

Vale, parece que va por buen camino, he conseguido crear un pdf, aunque con el contenido "raro"

[pgranados]

Empezado por Casimiro Notevi

Vale, parece que va por buen camino, he conseguido crear un pdf, aunque con el contenido "raro"

Intente hacerlo con fastReport soltando un objeto tipo HTML e ingresando el código y el contenido se visualiza perfecto pero el requerimiento es que venga tal cual el sitio

No se como hacerlo porque el sitio contiene css y demas, vi que guardando el sitio en formato .MHTML si se mantiene todo en archivo, el tema es como imprimir ese MHTML

[Casimiro Noteví]

Desconozco ese tema
Por probar, he preguntado al chatgpt y dice esto:

Código Delphi [-]
uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  // Ruta completa al archivo MHTML que deseas imprimir
  FileName := 'C:\ruta\al\archivo.mhtml';

  // Cargar el archivo MHTML en el TWebBrowser
  WebBrowser1.Navigate('file://' + FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  OLECMDID_PRINT2: Integer;
  OLECMDEXECOPT_DONTPROMPTUSER: Integer;
begin
  // Constantes específicas para impresión en MHTML
  OLECMDID_PRINT2 := 6;
  OLECMDEXECOPT_DONTPROMPTUSER := 2;

  // Imprimir el contenido del TWebBrowser
  if WebBrowser1.OleObject.DocumentLoaded then
  begin
    WebBrowser1.OleObject.ExecWB(OLECMDID_PRINT2, OLECMDEXECOPT_DONTPROMPTUSER);
  end;
end;

[pgranados]

Empezado por Casimiro Notevi

Desconozco ese tema
Por probar, he preguntado al chatgpt y dice esto:

Código Delphi [-]
uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  // Ruta completa al archivo MHTML que deseas imprimir
  FileName := 'C:\ruta\al\archivo.mhtml';

  // Cargar el archivo MHTML en el TWebBrowser
  WebBrowser1.Navigate('file://' + FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  OLECMDID_PRINT2: Integer;
  OLECMDEXECOPT_DONTPROMPTUSER: Integer;
begin
  // Constantes específicas para impresión en MHTML
  OLECMDID_PRINT2 := 6;
  OLECMDEXECOPT_DONTPROMPTUSER := 2;

  // Imprimir el contenido del TWebBrowser
  if WebBrowser1.OleObject.DocumentLoaded then
  begin
    WebBrowser1.OleObject.ExecWB(OLECMDID_PRINT2, OLECMDEXECOPT_DONTPROMPTUSER);
  end;
end;

Esto funciono de maravilla, aunque no se si sea posible ocultar el dialog de guardar archivo que se genera y que en el PDF no se imprima en el header y en el footer información del navegador

Gracias por tu aporte casimiro!

[Casimiro Noteví]

Sí que se puede, tienes que configurarlo en el navegador.
Cada navegador tiene opción de elegir una impresora predeterminada y que no pregunte.
Claro, ahí tendrás que configurar el que usa cada usuario.