Question

我们正在使用客户申请,从网上申请中打印职等表。

This has been working flawlessly until the systems were upgraded to IE 8. I now receive this error (Access Denied): http://img707.imageshack.us/img707/5259/62270489.png
Apparently, this is a known issue and it cannot be solved.

我如何在不使用E WebBrowser控制的情况下,从温带应用中印刷超文本?

感谢

Martin Wiboe

Answer 1

这一“远景”工作: 如果你使用办公室自动化,而html则足够基本,你可以要求html和文字印刷?

<>亮度>其他值得探讨的想法:

将Html含量转换为PDF,并节省/印本。

Answer 2

解决老问题的可能性:

在从网上浏览器印刷多份文件时。网上浏览器控制只有1例,可导致查阅否认的错误。

每份文件使用新的变量印刷,而不在全球使用。在WebBrowserDocumentCompletedEventHandler等活动操作员将投影仪投到网上浏览器上。

WebBrowser browser = (WebBrowser)sender;

如果处理网上浏览器,仍有一些公开的印刷资源,则可能出现否认的错误。

Regards, M.

Answer 3

hmm 有趣的错误,我前面已经看到,我建议你使用。

www.un.org/Depts/DGACM/index_spanish.htm 一些参考资料:

Embedding Gecko(Mozilla rendering engine) in a .Net application

GeckoFX is a Windows Forms control written in clean, commented C# that embeds the Mozilla Gecko browser control in any Windows Forms Application. It also contains a simple class model providing access to the HTML and CSS DOM.

Answer 4

我正在从SkyVE s www.GeckoFx -而不是WebBrowser-,但自 Michel van Engelens/到这一问题上,我可以在此补充我的想法。也可适用于网上浏览器。

最重要的部分是将印刷呼吁与文件汇编活动分开——我只是在这里用一个时间。

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
    Try
        Dim wb As New Skybound.Gecko.GeckoWebBrowser
        AddHandler wb.DocumentCompleted, AddressOf PrintWebBrowser_DocumentCompleted
        AddHandler wb.HandleCreated, AddressOf PrintWebBrowser_HandleCreated
        wb.CreateControl()
    Catch ex As Exception
        MsgBox(String.Format("Error trying to create GeckoWebBrowser: {0}", ex.Message))
    End Try
End Sub

Private Sub PrintWebBrowser_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim wb = DirectCast(sender, Skybound.Gecko.GeckoWebBrowser)
    wb.Navigate(GeckoWebBrowser1.Url.AbsoluteUri)
End Sub

Private Sub PrintWebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim wb = DirectCast(sender, Skybound.Gecko.GeckoWebBrowser)
    If wb.Url IsNot Nothing AndAlso wb.Url.AbsoluteUri = "about:blank" Then Exit Sub

    Dim tmr As New Timer
    tmr.Interval = 200
    AddHandler tmr.Tick, AddressOf TimerTick
    tmr.Tag = wb
    tmr.Start()
End Sub

Private Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs)
    Dim tmr As Timer = DirectCast(sender, Timer)
    tmr.Stop()

    Dim wb As Skybound.Gecko.GeckoWebBrowser = Nothing
    Try
        wb = DirectCast(tmr.Tag, Skybound.Gecko.GeckoWebBrowser)
        wb.Window.Print()
    Catch comEx As Runtime.InteropServices.COMException
        Dim hresult As Integer = Runtime.InteropServices.Marshal.GetHRForException(comEx)
        If hresult = &H80004004 Then //  EX_ABORT
            MsgBox("Print cancelled")
        Else
            MsgBox(String.Format("Print failed: {0}", comEx.Message))
        End If
    Catch ex As Exception
        MsgBox(String.Format("Print failed: {0}", ex.Message))
    Finally
        If wb IsNot Nothing Then wb.Dispose()
    End Try
End Sub

Answer 5

我将探讨是否有可能利用丰富的文字编辑来翻译,然后印刷《区域协调手册》的内容。我很想知道我是否取得了成功。

友情链接