Print PDF with Thai font

[Boh]

Hello,

I have scenario print PDF form from Power APPs. English language is ok but I got problem with Thai font. 

Please help.

[danielbazetto]

Hello @Boh ,

I didn't have the chance to try to repro the issue and work deeper on it however I found a similar situation on PowerAutomate. Could you please take a look and see if this could help you?

https://powerusers.microsoft.com/t5/Using-Flows/Chinese-character-issue-while-converting-Html-to-PDF...

Also let us know if you have any update on the situation.

[Boh]

Hi 

Thank answer.

I will test with connector. 

however my step is

Power Automate call Azure SQL data> Generate to HTML> Convent to PDF

Generate HTML is OK Thai character is correct.

Convert to PDF is incorrect because Thai character font have 3 level example. เกี๋ยง  มั่น หมี่น

Thank

[danielbazetto]

Hi @Boh ,

Did you manage to find something new related to it? If yes please let us know.

[Boh]

Solved by Modern driven solution.

Thanks

[danielbazetto]

Hi @Boh ,

I am really glad to hear that, could you share the steps you have done on the post and then marked as solution accepted?

[Max44 · Accepted solution]

FM SO_NEW_DOCUMENT_ATT_SEND_API1 is not able to detect the Thai Character and hence you are getting ## in attatchement.

You might

have to convert all Text to Binary format and then pass to FM SO_NEW_DOCUMENT_ATT_SEND_API1 .
or you can skip

FM SO_NEW_DOCUMENT_ATT_SEND_API1 and use below code used for similar purpose:
*&---------------------------------------------------------------------**& Form populate_attachment*&---------------------------------------------------------------------** email is created here*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM populate_attachment .

DATA: doc1 TYPE REF TO cl_document_bcs,
doc2 TYPE REF TO cl_bcs.
DATA: recipient TYPE REF TO cl_cam_address_bcs,
i_sender TYPE REF TO cl_cam_address_bcs .
DATA: lv_status TYPE os_boolean,
lv_copy(1),lv_bcc(1).
DATA: v_text TYPE string.
DATA: wa_lines TYPE tline,
lines TYPE STANDARD TABLE OF tline,
v_lines TYPE string,
wa_text TYPE soli,
i_text TYPE soli_tab,
buffer TYPE xstring.
DATA: date_des(15).
DATA: email_add TYPE adr6-smtp_addr.
DATA: it_emailadd TYPE TABLE OF zemail_alert,
wa_emailadd TYPE zemail_alert.
DATA: string TYPE string,
xstring TYPE xstring.
DATA: bin TYPE solix_tab,
out_len TYPE i,
len TYPE sood-objlen,
psubject(50) TYPE c. "subject of the mail.
DATA: oref TYPE REF TO cx_root,
l_text TYPE string. " error details

*--------------------------------------------------------------------** Create the mail instance*--------------------------------------------------------------------**Create the object
TRY.
doc2 = cl_bcs=>create_persistent( ).
CATCH cx_send_req_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.

PERFORM format_date CHANGING date_des.
wa_text-line = text-002.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
CONCATENATE text-003
date_des INTO wa_text-line SEPARATED BY space.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = text-004.
APPEND wa_text TO i_text.*--------------------------------------------------------------------SA20120320+
IF gv_inerror = 'X'.
wa_text-line = text-014.
APPEND wa_text TO i_text.

ELSEIF gv_outerror = 'X'.
wa_text-line = text-015.
APPEND wa_text TO i_text.
elseif gv_inerror = 'X'and gv_outerror = 'X' .
wa_text-line = text-016.
APPEND wa_text TO i_text.
ENDIF.
*--------------------------------------------------------------------*SA20120320+
IF it_arfcsstate IS INITIAL.
wa_text-line = text-005.
APPEND wa_text TO i_text.
ELSE.
wa_text-line = text-006.
APPEND wa_text TO i_text.
ENDIF.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = text-007.
APPEND wa_text TO i_text.** IF it_edidc IS INITIAL. "SA20120320-** wa_text-line = text-008.** APPEND wa_text TO i_text.** ELSE.** wa_text-line = text-009.** APPEND wa_text TO i_text.** ENDIF.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = text-010.
APPEND wa_text TO i_text.
wa_text-line = text-011.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = ''.
wa_text-line = text-012.
APPEND wa_text TO i_text.
wa_text-line = ''.
APPEND wa_text TO i_text.
wa_text-line = text-013.
APPEND wa_text TO i_text.
* entire email body
IF i_text[] IS NOT INITIAL.
LOOP AT i_text INTO wa_text.
CONCATENATE v_lines wa_text INTO v_lines.
ENDLOOP.
ENDIF.
* Create Document(mail)
"careful: subj length should not be longer than 50 chars
CONCATENATE text-001 date_des INTO psubject SEPARATED BY space.
TRY.
doc1 = cl_document_bcs=>create_document(
i_type = 'RAW'
i_subject = psubject
i_language = sy-langu
i_text = i_text
).
CATCH cx_document_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.

TRY.
doc2->set_document( doc1 ).
CATCH cx_send_req_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.

LOOP AT it_xml INTO wa_xml.
CONCATENATE string wa_xml INTO string.
ENDLOOP.

CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = string* MIMETYPE = ' '* ENCODING =
IMPORTING
buffer = xstring* EXCEPTIONS* FAILED = 1* OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = xstring
IMPORTING
output_length = out_len
TABLES
binary_tab = bin.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

len = out_len.
DATA: file_name TYPE sood-objdes.
CONCATENATE text-001 date_des INTO file_name SEPARATED BY space.

TRY.
doc1->add_attachment(
EXPORTING
i_attachment_type = 'XLS'"att_type_o
i_attachment_subject = file_name
i_attachment_size = len
i_att_content_hex = bin
).
CATCH cx_document_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.
* get email address and send type, active check from zemail_add table
SELECT * FROM zemail_alert
INTO TABLE it_emailadd.
"WHERE status <> space.

IF it_emailadd[] IS NOT INITIAL.
LOOP AT it_emailadd INTO wa_emailadd.
email_add = wa_emailadd-emailid.
TRY.
recipient = cl_cam_address_bcs=>create_internet_address(
email_add ).

CATCH cx_address_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.
* IF wa_emailadd-recipients_type EQ 'TO'.
TRY.
doc2->add_recipient(
EXPORTING
i_copy = lv_copy
i_blind_copy = lv_bcc
i_recipient = recipient

).
CATCH cx_send_req_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.** ELSEIF wa_emailadd-recipients_type EQ 'CC'.* lv_copy = 'X'.* TRY.* doc2->add_recipient(* EXPORTING* i_copy = lv_copy* i_blind_copy = lv_bcc* i_recipient = recipient* ).* CATCH cx_send_req_bcs INTO oref.* l_text = oref->get_text( ).* IF l_text IS NOT INITIAL.* MESSAGE l_text TYPE 'E'.* ENDIF.* ENDTRY.* CLEAR: lv_copy.* ENDIF.
ENDLOOP.
ELSE.
MESSAGE text-e06 TYPE 'E'.
ENDIF.

TRY.
lv_status = doc2->send( ).
CATCH cx_send_req_bcs INTO oref.
l_text = oref->get_text( ).
IF l_text IS NOT INITIAL.
MESSAGE l_text TYPE 'E'.
ENDIF.
ENDTRY.

COMMIT WORK.
* this program is used to trigger email immediately using variant* SUBMIT rsconn01* USING SELECTION-SET 'DAILY_RUN' AND RETURN.

[Anonymous]

May you please suggest more detail?

[Anonymous]

I, too, create English normally. but not Thai

I'm a newbie practicing.