文章/答案/技术大牛

发布

社区首页 >问答首页 >我需要下载的html页面为PDF

问我需要下载的html页面为PDF
EN

Stack Overflow用户

提问于 2019-01-10 20:22:22

回答 2查看 324关注 0票数 0

我有一些HTML页面的交叉表，我想下载PDF格式的那些。我已经在SAS报告标准中生成了相同的报告，但由于PDF和HTML在SAS中不相互渲染，所以尝试开发一段JavaScript代码，以便我可以在SAS中嵌入相同的内容，以便将HTML内容转换为PDF。

我用JavaScript开发了以下脚本，但我不是JavaScript专家。

var options = {
  "url": "/pdf/generate",
  "data": "data=" + $("#content").html(),
  "type": "post",
}
$.ajax(options)


$html = $_POST['data'];
$pdf = html2pdf($html);

header("Content-Type: application/pdf"); //check this is the proper header for pdf
header("Content-Disposition: attachment; filename='some.pdf';");
echo $pdf;

$(function() {

  var specialElementHandlers = {
    '#editor': function(element, renderer) {
      return true;
    }
  };
  $('#cmd').click(function() {
    var doc = new jsPDF();
    doc.fromHTML(
      $('#target').html(), 15, 15, {
        'width': 170,
        'elementHandlers': specialElementHandlers
      },
      function() {
        doc.save('sample-file.pdf');
      }
    );

  });
});

<title>HTML TO PDF Rendering</title>


<div id="content">

  <h3>Hello, this is a H3 tag</h3>

  <p>A paragraph</p>
</div>
<div id="editor"></div>
<button id="cmd">generate PDF</button>

我尝试在在线Javascript代码片段中运行上面的代码，虽然它没有给出错误，但单击Generate PDF按钮并不能将页面下载为PDF格式。

有人能告诉我我错过了什么吗？

ajax

sas

javascript

php

回答 2

Stack Overflow用户

发布于 2019-01-10 21:06:38

也许是最简单的情况。使用SAS将相同的过程输出同时发送到html和pdf目标。每个目的地都将创建一个单独的文档。在html文档中添加到pdf文档的链接。当这两个文件都作为静态内容提供时，它们应该驻留在同一个提供服务的文件夹中。

ods html file = 'c:\temp\xtab.html' style=journal;
ods pdf file = 'c:\temp\xtab.pdf' style=journal;

ods noresults;

options nodate nonumber nocenter;

proc tabulate data=sashelp.cars;
  class make model type;
  table make, type=''*N='';
  where make like 'M%';
run;

ods pdf close;

ods html text='<a href="xtab.pdf">Link goes here</a>';

ods html close;

ods results;

options noxmin noxwait noxsync;
%sysexec start "My Browser" c:\temp\xtab.html;

当您的浏览器打开时，单击链接以查看pdf版本。

如果内容是通过提示和存储过程在SAS中动态生成的，请在问题中添加更多详细信息。

您还可以有一个母版页，在iframe中显示不同的内容

<html>
<title>demo</title>
<body>
<button id="asHtml" onclick="asHtml()"> Show HTML output </button>
<button id="asPDF"  onclick="asPDF()"> Show PDF output </button>
<iframe id="theTabulate" width="100%" height="90%">
</iframe>
<script>
function asHtml() {
  document.getElementById("theTabulate").src = "xtab.html";
}
function asPDF() {
  document.getElementById("theTabulate").src = "xtab.pdf";
}
</script>
</body>
</html>

在深入研究更复杂的规范之前，您需要从输出消费者那里获得更清晰的规范。

票数 0

Stack Overflow用户

发布于 2019-01-11 15:12:42

%macro mac_buttons_ods(
   mcv_style          = ERS,  /* Select the SAS style you want to use.  default = ers */ 
   mcv_dest           = HTML, /* PDF, RTF, XML, EXCEL, PANEL, SPECIAL, TEXT or TABLE */ 
   mcv_tag_options    = ,
   mcv_excel_options  = %str(options(sheet_label="ERS" sheet_interval="none" frozen_headers="yes" embedded_titles="yes")), 
   mcv_ods_options  = %str(),
   mcv_title          = ERS, /* Enter the text you want to see in the title area of the browser window.*/ 
   mcv_portal_only    = no,
   mcv_mode           = PROD, /* PROD: mprint mlogic symbolgen will be turned off otherwise they will be turned on. */
   mcv_param          =,/*all the parameters to pass in url*/
   ) ;


   %global mcv_stp_name 
           mcv_ers_url 
           mcv_sasweb 
           _odsdest _odsoptions _odsstyle _odsstylesheet _program _url mcv_filename 
           mcv_back mcv_forward mcv_pdf mcv_excel mcv_word mcv_print mcv_rerun mcv_close
           ;
   %local mcv_style 
          mcv_dest 
          mcv_tag_options 
          mcv_excel_options 
          mcv_title 
          mcv_ods_options 
          mcv_portal_only 
          mcv_mode ;

   *ProcessBody ;
   options minoperator ;

   %* Only use this macro if running as a stored process ;
   %if %superq(_program) = %then %return ;;


   libname ersstyle '/apps/usr/ERS/styles' access=readonly ;
   ods path ersstyle.templat(read) sasuser.templat(update) sashelp.tmplmst(read) ;
   ods escapechar = '^' ;

   %let _odsstyle   = &mcv_style. ;
   %let mcv_sasweb  = https://&_srvname.:&_srvport./ ;

   data _null_ ;
     call symputx('mcv_stp_name',scanq("&_program.",countc("&_program.","/"),'/')) ;
   run ;
%mac_assign_lib;
   
    %let mcv_back = "<button class='NAV' onclick=history.go(-1)%str(;) title='Go Back 1 Page'><img src='/images/left.png' /></button>" ;
    %let mcv_forward ="<button class='NAV' onclick=history.go(+1)%str(;) title='Go Forward 1 Page'><img src='/images/right.png' /></button>"; 
    %let mcv_pdf     = "<button class='NAV' onclick=location.href='do?_program=%sysfunc(urlencode(&_program.))&mcv_param.%str(&)_odsdest=PDF' title='Click to Download to PDF.' ><img src='/images/pdf.png' /></button>";
    %let mcv_excel   = "<button class='NAV' onclick=location.href='do?_program=%sysfunc(urlencode(&_program.))&mcv_param.%str(&)_odsdest=EXCEL' title='Click to Download to Excel.'><img src='/images/excel_small.png' /></button>";
    %let mcv_word   =  "<button class='NAV' onclick=location.href='do?_program=%sysfunc(urlencode(&_program.))&mcv_param.%str(&)_odsdest=RTF' title='Click to Download to Word'><img src='/images/word.png' /></button>";
    %let mcv_print   = "<button class='NAV' onclick=window.print(); title='Click to Print report.'><img src='/images/print.png' /></button>";
    %let mcv_rerun   =  "<button class='NAV' onclick=window.location.reload(); title='Click to Re-Run report.'> <img src='/images/rerun.png' /></button>";
    %let mcv_close   = "<button class='NAV' onclick=self.close(); title='Click to Close window.'><img src='/images/close.png' /></button>";

   

   %if %upcase(%superq(mcv_portal_only)) = YES and %superq(_result) = PACKAGE_TO_ARCHIVE %then %do ;
         %stpbegin ;
         ods text = "^{style [fontsize=14pt]&c_stp_name.}" ;
         ods text = "^{style [fontsize=14pt]Can only be viewed on the ERS Portal.}" ;
   %end ;
   %else %do ;
      %if %upcase(%superq(_odsdest)) ne HTML and 
          %upcase(%superq(_odsdest)) > %str() %then %let mcv_dest = &_odsdest. ;;

      %if %upcase(%superq(mcv_dest)) = EXCEL %then %do ;
         data _null_ ;
            rc = stpsrv_header('Content-type','application/vnd.openxmlformats-officedocument.spreadsheetml.sheet') ;
            rc = stpsrv_header('Content-disposition',"attachment; filename=&mcv_stp_name..xlsx") ;
         run ;

         ods excel file = _webout ;
         ods excel style = &mcv_style. %if %superq(mcv_excel_options) > %str() %then &mcv_excel_options. ;; 
      %end ;
      %else %let _odsdest = &mcv_dest. ;;
       %if %upcase(%superq(mcv_dest)) = PANEL   %then %let _odsdest = tagsets.htmlpanel ;
       %if %upcase(%superq(mcv_dest)) = TABLE   %then %let _odsdest = tagsets.tableeditor ;
      %if %upcase(%superq(mcv_dest)) = SPECIAL %then %let _odsdest = tagsets.special ;

      %if %upcase(%superq(mcv_dest)) =HTML OR  %upcase(%superq(mcv_dest))=PANEL OR %upcase(%superq(mcv_dest))=TABLE OR %upcase(%superq(mcv_dest))=SPECIAL %then %do ;
       %include "/apps/usr/ERS/MacroLibrary/tableeditor.tpl";
/*	   ods tagsets.tableeditor file=_webout style= &mcv_tag_options.;*/
         %let _odsoptions = file=_webout (title='ERS') style= &mcv_style. &mcv_tag_options. ;

      %end ;
      %if %upcase(%superq(mcv_dest)) = PDF %then %do ;
         %let _odsoptions = notoc &mcv_ods_options. ;
         data _null_ ;
            rc = stpsrv_header('Content-disposition',"attachment; filename=&mcv_stp_name..pdf") ;
         run ;
      %end ;
      %if %upcase(%superq(mcv_dest)) = RTF %then %do ;
	  %let _ODSOPTIONS= KEEPN; 
   
         data _null_ ;
            rc = stpsrv_header('Content-disposition',"attachment; filename=&mcv_stp_name..doc") ;
         run ;
      %end ;
      %if %upcase(%superq(mcv_dest)) ne EXCEL %then %stpbegin ;;

   %end ;

   %if %upcase(&mcv_mode) ne PROD %then options mlogic mprint symbolgen ;
   %else                                options nomlogic nomprint nosymbolgen ;;
%mend mac_buttons_ods;

Excel Output Image format the same is needed in PDF

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/54128629

复制

相似问题

问我需要下载的html页面为PDF
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问我需要下载的html页面为PDFEN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问我需要下载的html页面为PDF
EN