$select_day = input_post('select_day'); $select_month = input_post('select_month'); $select_year = input_post('select_year') + 543; $to = input_post('to'); $type = input_post('type'); $thai_date = to_thai_number($select_day).' '.$def_fullm_th[$select_month].' '.to_thai_number($select_year); $pdf = new SHSPdf('P', 'mm', 'A4'); $pdf->SetThaiFont(); // �絿�� $pdf->SetAutoPageBreak(false, 0); $pdf->SetMargins(30, 19, 20, 25); // left, top, right $pdf->AddPage(); $pdf->SetFont('THSarabun','',16); // ���¡��ҹ������������� $pdf->SetXY(30, 19); $pdf->Image('images/ks_025_2.png', 94, 19, 30, 30, 'PNG'); $pdf->SetXY(30, 39); $pdf->Cell(47, 5, '��� �� ����.��.�/'.to_thai_number($run_number), 1, 1); $pdf->SetXY(145, 39); $pdf->MultiCell(45, 5, '�ç��Һ�Ť�������ѡ��������'."\n".'�ӺžԪ�� ��������ͧ'."\n".'�ѧ��Ѵ�ӻҧ �����', 1, 'L'); $pdf->SetXY(110, 59); $pdf->Cell(0, 5, $thai_date, 1, 1, 'L'); if( $type === 'sso' ){ $title = '����ͧ ���觵�Ǽ������Է����ѡ��Сѹ�آ�Ҿ��ǹ˹�� �ѡ�ҵ��'; }else{ $title = '����ͧ ���Ѻ�ͧ�Է�Լ���Сѹ���ͧ�ç��Һ�Ť�������ѡ��������';
$pdf->SetThaiFont(); // à«çµ¿Í¹µì $pdf->SetAutoPageBreak(false, 0); $pdf->SetMargins(3, 3, 3); // left, top, right $pdf->AddPage(); $pdf->SetFont('THSarabun', '', 14); // àÃÕ¡ãªé§Ò¹¿Í¹µì·ÕèàµÃÕÂÁäÇé $pdf->Cell(197, 7, 'DISCHARGE SUMMARY', 0, 1, 'C'); $pdf->Cell(197, 7, 'FORT SURASAKMONTRI HOSPITAL FR-MDO-001/1 , 05, 01 , Ê.¤. 52', 0, 1, 'C'); $x = $pdf->GetX(); $y = $pdf->GetY(); // ¨Ø´ x,y µÒÁ˹éÒ¡ÃдÒÉ Êèǹ¤ÇÒÁ¡ÇéÒ§ÊÙ§¢Í§¡ÃͺµÒÁ¢Í§à´ÔÁ // µÑǹÕéà»ç¹¡ÃͺãËè $pdf->Rect($x, $y, 197, 35); $pdf->SetXY(3, 17); $pdf->Cell(85, 7, "ADMIT: {$adate} àÇÅÒ: {$tdate}", 0, 1); $pdf->SetXY(88, 17); $pdf->SetFont('THSarabun', 'B'); $pdf->Cell(45, 7, 'AN: ' . $item['an'], 0, 1); $pdf->SetXY(133, 17); $pdf->Cell(67, 7, 'HN: ' . $item['hn'], 0, 1); $pdf->SetXY(3, 24); $pdf->SetFont('THSarabun', 'B'); $pdf->Cell(85, 7, 'ª×èÍ: ' . $item['yot'] . ' ' . $item['name'] . ' ' . $item['surname'] . ' ÍÒÂØ: ' . $age, 0, 1); $pdf->SetXY(88, 24); $pdf->SetFont('THSarabun'); $pdf->Cell(45, 7, 'à¾È: ' . $sex, 0, 1); $pdf->SetXY(133, 24); $pdf->Cell(67, 7, 'Êѧ¡Ñ´: ' . $sex, 0, 1); $pdf->SetXY(3, 31);