bom dia , escrevi um rotina no formulario Blank ,usando o tcpdf para imprimir etiquetas, não consigo executa , e não acho o errro
alguem poderia ajudar
segue a rotina :
set_include_lib(“tcpdf.php”);
$pdf = new TCPDF();
$pdf->SetCreator(PDF_CREATOR);
$pdf->setAuthor(“Eu”);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->AddPage();
$pdf->SetFont(‘helvetica’, ‘’, 10);
// define barcode style
$style = array(
‘position’ => ‘’,
‘align’ => ‘C’,
‘stretch’ => false,
‘fitwidth’ => true,
‘cellfitalign’ => ‘’,
‘border’ => true,
‘hpadding’ => ‘auto’,
‘vpadding’ => ‘auto’,
‘fgcolor’ => array(0,0,0),
‘bgcolor’ => false, //array(255,255,255),
‘text’ => true,
‘font’ => ‘helvetica’,
‘fontsize’ => 8,
‘stretchtext’ => 4
);
$cdf = 1;
$sql=“SELECT etiquetas.cod_func,etiquetas.num_etiq1,etiquetas.num_etiq2,funcionarios.nom_func
FROM
etiquetas INNER JOIN funcionarios ON etiquetas.cod_func = funcionarios.cod_func
Where etiquetas.cod_func=’$cdf’”;
sc_select(dados,$sql);
while (!$dados->EOF){
$cbarr1 = $dados[“etiquetas.num_etiq1”];
$funci1 = $dados[“funcionarios.nom_func”];
$cbarr2 = $dados["etiquetas.num_etiq2"];
$funci2 = $dados["funcionarios.nom_func"];
$pdf->Ln();
// UPC-E
$pdf->Cell(0, 5, 'UPC-E', 0, 1);
$pdf->write1DBarcode('$cbarr1', 'UPCE', '', '', '', 18, 0.4, $style, 'N');
$pdf->Cell(0, 35, 'UPC-E', 0, 1);
$pdf->write1DBarcode('$cbarr2', 'UPCE', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
$pdf->Cell(0, 5, '$funci1');
$pdf->Cell(0, 35,'$funci2');
}
$pdf->Output(‘etiqb.pdf’,‘I’);
desde ja agradeço