<%@ LANGUAGE = VBScript %> <% ' 収集ページの結合 ' 2005/9/14 ' 2007/7/19 if request("mrg_flg") = "on" then ymd=replace(replace(replace(now(),"/",""),":","")," ","_") & ".pdf" outfile = server.mappath("./out_pdf") & "\" & ymd Set oPDF = Server.CreateObject("PDFlib_com.PDF") oPDF.begin_document outfile , "" oPDF.set_info "Creator", "merge_pdf.asp" oPDF.set_info "Author", "Ko Orii" oPDF.set_info "Title", "PDFlib Merge Pages Test" infile = server.mappath("./pdfs/") & "\spinnen.pdf" addpage = oPDF.open_pdi(infile, "", 0) page = oPDF.open_pdi_page(addpage, 1, "") oPDF.begin_page_ext 595, 842, "topdown" oPDF.fit_pdi_page page, 0, 842, "" oPDF.close_pdi_page page oPDF.end_page_ext "" for jj = 1 to 5 if request("chk"&jj)<>"" then infile = server.mappath("./pdfs") & "\00" & jj & ".pdf" addpage = oPDF.open_pdi(infile, "", 0) page = oPDF.open_pdi_page(addpage, 1, "") oPDF.begin_page_ext 595, 842, "topdown" oPDF.fit_pdi_page page, 0, 842, "" oPDF.close_pdi_page page if request("txt"&jj)<>"" then regularfont = oPDF.findfont("HeiseiKakuGo-W5", "UniJIS-UCS2-H", 0) oPDF.setcolor "fill", "rgb", 1, 0, 0, 0 oPDF.setfont regularfont, 20 oPDF.show_xy request("txt"&jj), 100, 100 ' oPDF.setcolor "fill", "rgb", 0, 0, 0, 0 ' oPDF.set_text_pos 100, 200 ' oPDF.setfont regularfont, 12 ' oPDF.show request("txt"&jj) end if oPDF.end_page_ext "" end if next oPDF.end_document "" oPDF.close_pdi ichimatsu On Error Resume Next buf_all = oPDF.get_buffer() Set oPDF = nothing response.redirect "./out_pdf/" & ymd response.end end if %> PDFlib サンプル : 結合
【ページ結合】
1ページ目にダミーページを追加
チェックボックスにチェックのあるページを結合
入力ボックスに文字を入力するとそのページに反映(左上から100px,100pxの位置 : topdown 指定のため）
生成されたPDFは別ウィンドウで表示

<% for jj=1 to 5 %> <% next %> <% for jj=1 to 5 %> <% next %> <% for jj=1 to 5 %> <% next %>
選択
" >
文字を入力すると、本文に反映されます。位置とサイズ、背景色枠色は固定。
<%=msg%><%=pdf_name%>       ソース表示    PDFlib サンプルTOP

Spinnen Gilde Ltd.