couple very minor fixes to prior commit
[openemr.git] / library / html2pdf / vendor / tecnickcom / tcpdf / examples / example_049.php
blob7a764fbc60f2fc2ef7e800fdf12b440c6c402eb7
1 <?php
2 //============================================================+
3 // File name : example_049.php
4 // Begin : 2009-04-03
5 // Last Update : 2014-12-10
6 //
7 // Description : Example 049 for TCPDF class
8 // WriteHTML with TCPDF callback functions
9 //
10 // Author: Nicola Asuni
12 // (c) Copyright:
13 // Nicola Asuni
14 // Tecnick.com LTD
15 // www.tecnick.com
16 // info@tecnick.com
17 //============================================================+
19 /**
20 * Creates an example PDF TEST document using TCPDF
21 * @package com.tecnick.tcpdf
22 * @abstract TCPDF - Example: WriteHTML with TCPDF callback functions
23 * @author Nicola Asuni
24 * @since 2008-03-04
27 // Include the main TCPDF library (search for installation path).
28 require_once('tcpdf_include.php');
30 // create new PDF document
31 $pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
33 // set document information
34 $pdf->SetCreator(PDF_CREATOR);
35 $pdf->SetAuthor('Nicola Asuni');
36 $pdf->SetTitle('TCPDF Example 049');
37 $pdf->SetSubject('TCPDF Tutorial');
38 $pdf->SetKeywords('TCPDF, PDF, example, test, guide');
40 // set default header data
41 $pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 049', PDF_HEADER_STRING);
43 // set header and footer fonts
44 $pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
45 $pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
47 // set default monospaced font
48 $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
50 // set margins
51 $pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
52 $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
53 $pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
55 // set auto page breaks
56 $pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
58 // set image scale factor
59 $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
61 // set some language-dependent strings (optional)
62 if (@file_exists(dirname(__FILE__).'/lang/eng.php')) {
63 require_once(dirname(__FILE__).'/lang/eng.php');
64 $pdf->setLanguageArray($l);
67 // ---------------------------------------------------------
69 // set font
70 $pdf->SetFont('helvetica', '', 10);
72 // add a page
73 $pdf->AddPage();
76 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
78 IMPORTANT:
79 If you are printing user-generated content, tcpdf tag can be unsafe.
80 You can disable this tag by setting to false the K_TCPDF_CALLS_IN_HTML
81 constant on TCPDF configuration file.
83 For security reasons, the parameters for the 'params' attribute of TCPDF
84 tag must be prepared as an array and encoded with the
85 serializeTCPDFtagParameters() method (see the example below).
87 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
90 $html = '<h1>Test TCPDF Methods in HTML</h1>
91 <h2 style="color:red;">IMPORTANT:</h2>
92 <span style="color:red;">If you are using user-generated content, the tcpdf tag can be unsafe.<br />
93 You can disable this tag by setting to false the <b>K_TCPDF_CALLS_IN_HTML</b> constant on TCPDF configuration file.</span>
94 <h2>write1DBarcode method in HTML</h2>';
96 $params = $pdf->serializeTCPDFtagParameters(array('CODE 39', 'C39', '', '', 80, 30, 0.4, array('position'=>'S', 'border'=>true, 'padding'=>4, 'fgcolor'=>array(0,0,0), 'bgcolor'=>array(255,255,255), 'text'=>true, 'font'=>'helvetica', 'fontsize'=>8, 'stretchtext'=>4), 'N'));
97 $html .= '<tcpdf method="write1DBarcode" params="'.$params.'" />';
99 $params = $pdf->serializeTCPDFtagParameters(array('CODE 128', 'C128', '', '', 80, 30, 0.4, array('position'=>'S', 'border'=>true, 'padding'=>4, 'fgcolor'=>array(0,0,0), 'bgcolor'=>array(255,255,255), 'text'=>true, 'font'=>'helvetica', 'fontsize'=>8, 'stretchtext'=>4), 'N'));
100 $html .= '<tcpdf method="write1DBarcode" params="'.$params.'" />';
102 $html .= '<tcpdf method="AddPage" /><h2>Graphic Functions</h2>';
104 $params = $pdf->serializeTCPDFtagParameters(array(0));
105 $html .= '<tcpdf method="SetDrawColor" params="'.$params.'" />';
107 $params = $pdf->serializeTCPDFtagParameters(array(50, 50, 40, 10, 'DF', array(), array(0,128,255)));
108 $html .= '<tcpdf method="Rect" params="'.$params.'" />';
111 // output the HTML content
112 $pdf->writeHTML($html, true, 0, true, 0);
114 // - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
116 // reset pointer to the last page
117 $pdf->lastPage();
119 // ---------------------------------------------------------
121 //Close and output PDF document
122 $pdf->Output('example_049.pdf', 'I');
124 //============================================================+
125 // END OF FILE
126 //============================================================+