couple very minor fixes to prior commit
[openemr.git] / library / html2pdf / vendor / tecnickcom / tcpdf / examples / example_018.php
bloba97a44ac86a43a81a1b79a5caf29f29d959b99c0
1 <?php
2 //============================================================+
3 // File name : example_018.php
4 // Begin : 2008-03-06
5 // Last Update : 2013-05-14
6 //
7 // Description : Example 018 for TCPDF class
8 // RTL document with Persian language
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: RTL document with Persian language
23 * @author Nicola Asuni
24 * @since 2008-03-06
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 018');
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.' 018', 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 data:
62 $lg = Array();
63 $lg['a_meta_charset'] = 'UTF-8';
64 $lg['a_meta_dir'] = 'rtl';
65 $lg['a_meta_language'] = 'fa';
66 $lg['w_page'] = 'page';
68 // set some language-dependent strings (optional)
69 $pdf->setLanguageArray($lg);
71 // ---------------------------------------------------------
73 // set font
74 $pdf->SetFont('dejavusans', '', 12);
76 // add a page
77 $pdf->AddPage();
79 // Persian and English content
80 $htmlpersian = '<span color="#660000">Persian example:</span><br />سلام بالاخره مشکل PDF فارسی به طور کامل حل شد. اینم یک نمونش.<br />مشکل حرف \"ژ\" در بعضی کلمات مانند کلمه ویژه نیز بر طرف شد.<br />نگارش حروف لام و الف پشت سر هم نیز تصحیح شد.<br />با تشکر از "Asuni Nicola" و محمد علی گل کار برای پشتیبانی زبان فارسی.';
81 $pdf->WriteHTML($htmlpersian, true, 0, true, 0);
83 // set LTR direction for english translation
84 $pdf->setRTL(false);
86 $pdf->SetFontSize(10);
88 // print newline
89 $pdf->Ln();
91 // Persian and English content
92 $htmlpersiantranslation = '<span color="#0000ff">Hi, At last Problem of Persian PDF Solved completely. This is a example for it.<br />Problem of "jeh" letter in some word like "ویژه" (=special) fix too.<br />The joining of laa and alf letter fix now.<br />Special thanks to "Nicola Asuni" and "Mohamad Ali Golkar" for Persian support.</span>';
93 $pdf->WriteHTML($htmlpersiantranslation, true, 0, true, 0);
95 // Restore RTL direction
96 $pdf->setRTL(true);
98 // set font
99 $pdf->SetFont('aefurat', '', 18);
101 // print newline
102 $pdf->Ln();
104 // Arabic and English content
105 $pdf->Cell(0, 12, 'بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ',0,1,'C');
106 $htmlcontent = 'تمَّ بِحمد الله حلّ مشكلة الكتابة باللغة العربية في ملفات الـ<span color="#FF0000">PDF</span> مع دعم الكتابة <span color="#0000FF">من اليمين إلى اليسار</span> و<span color="#009900">الحركَات</span> .<br />تم الحل بواسطة <span color="#993399">صالح المطرفي و Asuni Nicola</span> . ';
107 $pdf->WriteHTML($htmlcontent, true, 0, true, 0);
109 // set LTR direction for english translation
110 $pdf->setRTL(false);
112 // print newline
113 $pdf->Ln();
115 $pdf->SetFont('aealarabiya', '', 18);
117 // Arabic and English content
118 $htmlcontent2 = '<span color="#0000ff">This is Arabic "العربية" Example With TCPDF.</span>';
119 $pdf->WriteHTML($htmlcontent2, true, 0, true, 0);
121 // ---------------------------------------------------------
123 //Close and output PDF document
124 $pdf->Output('example_018.pdf', 'I');
126 //============================================================+
127 // END OF FILE
128 //============================================================+