source: trunk/client/inc/hpdf5/tecnickcom/tcpdf/examples/example_028.php@ 394

Last change on this file since 394 was 347, checked in by roby, 3 years ago

Aggiornamento per compatibilità con php7.4

File size: 3.3 KB
Line 
1<?php
2//============================================================+
3// File name : example_028.php
4// Begin : 2008-03-04
5// Last Update : 2013-05-14
6//
7// Description : Example 028 for TCPDF class
8// Changing page formats
9//
10// Author: Nicola Asuni
11//
12// (c) Copyright:
13// Nicola Asuni
14// Tecnick.com LTD
15// www.tecnick.com
16// info@tecnick.com
17//============================================================+
18
19/**
20 * Creates an example PDF TEST document using TCPDF
21 * @package com.tecnick.tcpdf
22 * @abstract TCPDF - Example: changing page formats
23 * @author Nicola Asuni
24 * @since 2008-03-04
25 */
26
27// Include the main TCPDF library (search for installation path).
28require_once('tcpdf_include.php');
29
30// create new PDF document
31$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
32
33// set document information
34$pdf->SetCreator(PDF_CREATOR);
35$pdf->SetAuthor('Nicola Asuni');
36$pdf->SetTitle('TCPDF Example 028');
37$pdf->SetSubject('TCPDF Tutorial');
38$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
39
40// remove default header/footer
41$pdf->setPrintHeader(false);
42$pdf->setPrintFooter(false);
43
44// set default monospaced font
45$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
46
47// set margins
48$pdf->SetMargins(10, PDF_MARGIN_TOP, 10);
49
50// set auto page breaks
51$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
52
53// set image scale factor
54$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
55
56// set some language-dependent strings (optional)
57if (@file_exists(dirname(__FILE__).'/lang/eng.php')) {
58 require_once(dirname(__FILE__).'/lang/eng.php');
59 $pdf->setLanguageArray($l);
60}
61
62// ---------------------------------------------------------
63
64$pdf->SetDisplayMode('fullpage', 'SinglePage', 'UseNone');
65
66// set font
67$pdf->SetFont('times', 'B', 20);
68
69$pdf->AddPage('P', 'A4');
70$pdf->Cell(0, 0, 'A4 PORTRAIT', 1, 1, 'C');
71
72$pdf->AddPage('L', 'A4');
73$pdf->Cell(0, 0, 'A4 LANDSCAPE', 1, 1, 'C');
74
75$pdf->AddPage('P', 'A5');
76$pdf->Cell(0, 0, 'A5 PORTRAIT', 1, 1, 'C');
77
78$pdf->AddPage('L', 'A5');
79$pdf->Cell(0, 0, 'A5 LANDSCAPE', 1, 1, 'C');
80
81$pdf->AddPage('P', 'A6');
82$pdf->Cell(0, 0, 'A6 PORTRAIT', 1, 1, 'C');
83
84$pdf->AddPage('L', 'A6');
85$pdf->Cell(0, 0, 'A6 LANDSCAPE', 1, 1, 'C');
86
87$pdf->AddPage('P', 'A7');
88$pdf->Cell(0, 0, 'A7 PORTRAIT', 1, 1, 'C');
89
90$pdf->AddPage('L', 'A7');
91$pdf->Cell(0, 0, 'A7 LANDSCAPE', 1, 1, 'C');
92
93
94// --- test backward editing ---
95
96
97$pdf->setPage(1, true);
98$pdf->SetY(50);
99$pdf->Cell(0, 0, 'A4 test', 1, 1, 'C');
100
101$pdf->setPage(2, true);
102$pdf->SetY(50);
103$pdf->Cell(0, 0, 'A4 test', 1, 1, 'C');
104
105$pdf->setPage(3, true);
106$pdf->SetY(50);
107$pdf->Cell(0, 0, 'A5 test', 1, 1, 'C');
108
109$pdf->setPage(4, true);
110$pdf->SetY(50);
111$pdf->Cell(0, 0, 'A5 test', 1, 1, 'C');
112
113$pdf->setPage(5, true);
114$pdf->SetY(50);
115$pdf->Cell(0, 0, 'A6 test', 1, 1, 'C');
116
117$pdf->setPage(6, true);
118$pdf->SetY(50);
119$pdf->Cell(0, 0, 'A6 test', 1, 1, 'C');
120
121$pdf->setPage(7, true);
122$pdf->SetY(40);
123$pdf->Cell(0, 0, 'A7 test', 1, 1, 'C');
124
125$pdf->setPage(8, true);
126$pdf->SetY(40);
127$pdf->Cell(0, 0, 'A7 test', 1, 1, 'C');
128
129$pdf->lastPage();
130
131// ---------------------------------------------------------
132
133//Close and output PDF document
134$pdf->Output('example_028.pdf', 'I');
135
136//============================================================+
137// END OF FILE
138//============================================================+
Note: See TracBrowser for help on using the repository browser.