Imprimir archivo HTML

176 views
Skip to first unread message

Andrés Oscar Gimbatti

unread,
Sep 24, 2025, 12:22:59 PMSep 24
to Comunidad de Visual Foxpro en Español
Estimados,
necesito imprimir un archivo HTML a la impresora y que no salgan los encabezados o pie de página que agrega automáticamente el navegador

Ahora estoy usando este método, pero me imprime los encabezados y pie

loIE = CREATEOBJECT([InternetExplorer.Application])
loIE.NAVIGATE("c:\temp\159.html")
INKEY(2)
* IMPRIME
loIE.ExecWB(6,2)

Cualquier sugerencia será bienvenida

Saludos

Erick Lezama

unread,
Sep 24, 2025, 12:29:55 PMSep 24
to publice...@googlegroups.com
un html es basicamente texto incluso editable via notepad
usate filetostr() y strtofile() y remueve lo que no necesitas con juego de caracteres como strtran(), substr(), at(), y luego envialo a imprimir
esos encabezados y pie de pagina casi seguro siguen patrones

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/a9a65c50-1e31-4d52-9ed8-b97ce7863e7an%40googlegroups.com.

Victor Espina

unread,
Sep 24, 2025, 5:35:33 PMSep 24
to Comunidad de Visual Foxpro en Español
Se dice mas facil de lo que es hacerlo en la practica de una manera general (que sirva para cualquier HTML). 

Victor Espina

Juan Gonzalez

unread,
Sep 24, 2025, 5:46:25 PMSep 24
to publice...@googlegroups.com
* Establece valores en el registro para IE - Encabezado y Pie vacíos
LOCAL loShell
loShell = CREATEOBJECT("WScript.Shell")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", "")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", "")

* Crea instancia de Internet Explorer

loIE = CREATEOBJECT("InternetExplorer.Application")
loIE.VISIBLE = .F.  && Opcional: .T. para mostrarlo

* Navega al archivo HTML
loIE.NAVIGATE("C:\temp\159.html")

* Espera a que cargue completamente
DO WHILE loIE.BUSY OR loIE.READYSTATE <> 4
    DOEVENTS
ENDDO

* Imprime sin mostrar el cuadro de diálogo
loIE.ExecWB(6, 2)  && 6 = Print, 2 = Don't prompt user

* Cierra IE
loIE.Quit
RELEASE loIE

Libre de virus.www.avast.com

Juan Gonzalez

unread,
Sep 24, 2025, 5:48:18 PMSep 24
to publice...@googlegroups.com
sino has un bat....   con lo siguiente:  @echo off
echo Quitando encabezado y pie de página de impresión de IE...

REM Eliminar encabezado
reg add "HKCU\Software\Microsoft\Internet Explorer\PageSetup" /v header /t REG_SZ /d "" /f

REM Eliminar pie de página
reg add "HKCU\Software\Microsoft\Internet Explorer\PageSetup" /v footer /t REG_SZ /d "" /f

echo Configuración aplicada. Ahora puedes imprimir sin encabezado ni pie de página.
pause    



ejecutalo antes de imprimir

Andrés Oscar Gimbatti

unread,
Sep 25, 2025, 6:46:09 AMSep 25
to publice...@googlegroups.com
Con esto me funciono perfectamente lo que necesitaba

* Establece valores en el registro para IE - Encabezado y Pie vacíos
LOCAL loShell
loShell = CREATEOBJECT("WScript.Shell")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", "")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", "")


Gracias !!!!

Saludos


Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/q6c64EJey40/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CACBth-qjvYOVoV5qW1tHoQHhD4ANkROJbrupw6rrQ7zZq%2BAM-w%40mail.gmail.com.

Hurricane

unread,
Sep 25, 2025, 3:43:48 PMSep 25
to publice...@googlegroups.com
Hi,

try this

LOCAL oShell, arquivoHTML
arquivoHTML = "C:\caminho\arquivo.html"

oShell = CREATEOBJECT("Shell.Application")
oShell.ShellExecute(arquivoHTML, "", "", "print", 1)
RELEASE oShell


Regards,


Miguel Angel Quinzan

unread,
Sep 28, 2025, 7:33:54 PMSep 28
to publice...@googlegroups.com
gracias, por compartir esa rutina aprendi mucho...  muy muy agradecido



--
Miguel Ángel Quinzán
Reply all
Reply to author
Forward
0 new messages