source: trunk/client/inc/hpdf5/tecnickcom/tcpdf/examples/example_044.php

Last change on this file was 347, checked in by roby, 4 years ago

Aggiornamento per compatibilità con php7.4

File size: 3.4 KB
RevLine 
[347]1<?php
2//============================================================+
3// File name : example_044.php
4// Begin : 2009-01-02
5// Last Update : 2013-05-14
6//
7// Description : Example 044 for TCPDF class
8// Move, copy and delete pages
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: Move, copy and delete pages
23 * @author Nicola Asuni
24 * @since 2009-01-02
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 044');
37$pdf->SetSubject('TCPDF Tutorial');
38$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
39
40// set default header data
41$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 044', PDF_HEADER_STRING);
42
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));
46
47// set default monospaced font
48$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
49
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);
54
55// set auto page breaks
56$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
57
58// set image scale factor
59$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
60
61// set some language-dependent strings (optional)
62if (@file_exists(dirname(__FILE__).'/lang/eng.php')) {
63 require_once(dirname(__FILE__).'/lang/eng.php');
64 $pdf->setLanguageArray($l);
65}
66
67// ---------------------------------------------------------
68
69// set font
70$pdf->SetFont('helvetica', 'B', 40);
71
72// print a line using Cell()
73$pdf->AddPage();
74$pdf->Cell(0, 10, 'PAGE: A', 0, 1, 'L');
75
76// add some vertical space
77$pdf->Ln(10);
78
79// print some text
80$pdf->SetFont('times', 'I', 16);
81$txt = 'TCPDF allows you to Copy, Move and Delete pages.';
82$pdf->Write(0, $txt, '', 0, 'L', true, 0, false, false, 0);
83
84$pdf->SetFont('helvetica', 'B', 40);
85
86$pdf->AddPage();
87$pdf->Cell(0, 10, 'PAGE: B', 0, 1, 'L');
88
89$pdf->AddPage();
90$pdf->Cell(0, 10, 'PAGE: D', 0, 1, 'L');
91
92$pdf->AddPage();
93$pdf->Cell(0, 10, 'PAGE: E', 0, 1, 'L');
94
95$pdf->AddPage();
96$pdf->Cell(0, 10, 'PAGE: E-2', 0, 1, 'L');
97
98$pdf->AddPage();
99$pdf->Cell(0, 10, 'PAGE: F', 0, 1, 'L');
100
101$pdf->AddPage();
102$pdf->Cell(0, 10, 'PAGE: C', 0, 1, 'L');
103
104$pdf->AddPage();
105$pdf->Cell(0, 10, 'PAGE: G', 0, 1, 'L');
106
107// Move page 7 to page 3
108$pdf->movePage(7, 3);
109
110// Delete page 6
111$pdf->deletePage(6);
112
113$pdf->AddPage();
114$pdf->Cell(0, 10, 'PAGE: H', 0, 1, 'L');
115
116// copy the second page
117$pdf->copyPage(2);
118
119// NOTE: to insert a page to a previous position, you can add a new page to the end of document and then move it using movePage().
120
121// ---------------------------------------------------------
122
123//Close and output PDF document
124$pdf->Output('example_044.pdf', 'I');
125
126//============================================================+
127// END OF FILE
128//============================================================+
Note: See TracBrowser for help on using the repository browser.