как распечатать HTML???

[Юра П]

Посоветуйте плз кто встречался.
Я формирую отчет в HTML. Потом мне надо его распечатать. Сейчас загружаю с помощью ShellExecute браузер Explorer, но это не интересно.

Рассматривал стандартный компонент веб-браузер, но с помощью него можно только вывести на экран, а на принтер нельзя

Мне бы желательно исходники. На крайняк и компонента подойдет.

[Konst_One]

как это нельзя?
все там можно

Код: Выделить всё

Dim C As SHDocVwCtl.OLECMDF

            C = Me.WEB.QueryStatusWB(OLECMDID_PRINT)
            If (C And OLECMDF_ENABLED) Then
                Me.WEB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
            Else
                MsgBox "Принтер не готов.", vbInformation
            End If

[Юра П]

Thnx. Я бы в жизни не догадался, что такую фиговину надо писать.

[Юра П]

Созрел еще один вопрос.

Как мне программно установить верхний колонтитул, нижний колонтитул, а также поля слева, справа, снизу, сверху.
Я методом тыка, нашел как сделать, чтобы появился диалог Page Setup. Еще раз спасибо Konst_one.

Me.WEB.ExecWB OLECMDID_PAGESETUP, CMDEXECOPT_PROMPTUSER

но хотелось бы установливать эти характеристика автоматически, а не в ручную.

[Konst_One]

эти значения можно выставить через изменение соответствующих ключей в реестре, но не забудь, что эти значения действительны для IE вцелом, так что, когда распечатал - верни на место, что было до этого, чтобы в других программах было как надо.

[Konst_One]

примерно так:

Код: Выделить всё

public const PageSetup As String = "Software\Microsoft\Internet
public Const defFooter As String = "&u&b&d"
public Const defHeader As String = " &w&bPage &p of &P"

Public Sub GetHeaderFooter()
Explorer\PageSetup"

    txtFaxHeader = RegGetSetting(cPageSetup, "header", defHeader)
    txtFaxFooter = RegGetSetting(cPageSetup, "footer", defFooter)

End Sub

Public Sub SetHeaderFooter(Optional ByVal Header As String = defHeader, Optional ByVal Footer As String = defFooter)

    RegSaveSetting cPageSetup, "header", Header
    RegSaveSetting cPageSetup, "footer", Footer

End Sub

[Konst_One]

что-то не туда скопировалось:

Код: Выделить всё

Public Const cPageSetup As String = "Software\Microsoft\Internet Explorer\PageSetup"
Public Const defFooter As String = "&u&b&d"
Public Const defHeader As String = " &w&bPage &p of &P"

Public Sub GetHeaderFooter()

    txtFaxHeader = RegGetSetting(cPageSetup, "header", defHeader)
    txtFaxFooter = RegGetSetting(cPageSetup, "footer", defFooter)

End Sub

Public Sub SetHeaderFooter(Optional ByVal Header As String = defHeader, Optional ByVal Footer As String = defFooter)

    RegSaveSetting cPageSetup, "header", Header
    RegSaveSetting cPageSetup, "footer", Footer

End Sub

[Юра П]

Большое спасибо, Konst_One.