Clear

*--设置默认路径
Local lcPath
m.lcPath = Justpath( sys(16,0) )
m.lcPath = Alltrim( Substr( m.lcPath , At( ":" , m.lcPath) -1 ) )
Set Default To ( m.lcPath )

Set Reportbehavior 90
Set Procedure To netsuite.reg.prg Additive

LOCAL lcReport ;
    , loReportListener  
   
m.lcReport = Getfile("FRX|LBX")
If Empty( m.lcReport ) Then
   Return
Endif

?'正在转换FRX2PDF,请稍候...'
 
loReportListener  = .NULL.
 
Local loErr

*5——HTML输出
Try
      DO (_reportoutput) WITH 5, m.loReportListener  
     With m.loReportListener
         .TargetFileName = Forcepath( Juststem( m.lcReport ) + '.html',  Addbs( m.lcPath ) + [\testdata\ConvertPDF] )
         .QuietMode      = .T.
     Endwith
     
     Report Form  ( m.lcReport ) Object  m.loReportListener
Catch To m.loErr
Endtry

If Type( "loErr.Message" ) == 'C' Then
    Messagebox(  [FRX输出HTML出错(] + loErr.Message + [)] , 16  , '过程：' + Program() )
     Return .F.
Endif
      
 
*--HTML2PDF
Local lcGenlFile ;
    , lcHtmlFile ;
      , lcToPdfFile;
      , lcErrmsg      ;
      , loHtml2Pdf
            
m.lcErrmsg    = ""
m.lcHtmlFile  = m.loReportListener.TargetFileName
*m.lcHtmlFile  = [file:///] + m.lcHtmlFile
*!*         m.lcHtmlFile  = Getfile( "HTML" )
*!*         m.lcHtmlFile  = strtran( m.lcHtmlFile , "\" , "/" )
m.lcToPdfFile = Addbs( m.lcPath ) + [\testdata\ConvertPDF]  + Sys(2015) + [.PDF]
m.loHtml2Pdf = Createobjects( "NetHtml2Pdf.Html2Pdf" , "NetHtml2Pdf.dll")
 
If !Vartype( m.loHtml2Pdf ) == "O" Then
    Return .F.
Endif
   
If !m.loHtml2Pdf.HtmlToPdf( m.lcHtmlFile , m.lcToPdfFile , @lcErrmsg ) Then
    Messagebox( m.lcErrmsg , 16 )
    Return .F.
Else
    Erase ( m.lcHtmlFile )
Endif
     

[此贴子已经被作者于2024-6-14 16:01编辑过]

windows原生的webview2打印输出HTML -> PDF
是的大家都是调用同一个开源库包括webview2，它也是调用一个开源库。。。，而我把这个库直接脱出来打包成DLL就方便部署发布和引用了，WebView2做项目可以，部署发布产品还是有一定难度的。

[此贴子已经被作者于2024-6-15 10:55编辑过]

你有1W客户潜在意识中都可能需要这样的功能，你去安装打印机吧。。。

你这么说估计你没有玩过win7,win10这些版本连个运行时刻都没有你一个外包装器"WebView2Loader.dll"有毛用，WebView2确实强大，gooleV8,JS一大堆函数可用！你直接c/s注入调用就可以，太方便了,太强大了。。。。,关键部署100多MB的库，客户端想升级都麻烦。。。。

[此贴子已经被作者于2024-6-15 15:14编辑过]

组件库太大，就没有上传了！