Printing from Access VBA in Urdu Language

Question

I have some data in table in Urdu language, I want to print it by putting on LPT1 but when I get data in VBA it converts it into ???????. Urdu language pack is already installed and it's working in all other applications. How can I prevent my data to change
into ?????? while getting it in Access VBA.

Answer 1

I assume that "to get the data from the table into VBA" means that you assign a value from a recordset or from a form field that is bount to a recordset to a variable, e.g.,
Dim rs As DAO.Recordset
Dim UrduString As String
Set rs = CurrentDB.OpenRecordset("UrduTable")
UrduString = rs!SomeField
In this assignment, the data in UrduString is not modified in any way, it is completely identical to the data in the table.
However, if you look at it in the VBA Editor, e.g. with
   Debug.Print UrduString
it displays as ???????. This is because of a limitation in the VBA Editor: It cannot properly *display* the contents of the Urdu string, allthough VBA correctly *stores* this content.
What do you mean by "putting the data on LPT1"? Something like
Open "LPT1:" For Binary Access Write As #1
Put #1, , UrduText
You will need to output the text in binary format. If you try to write in text format, it will indeed get transformed from Unicode to ANSI, thus producing the ????.
Matthias Kläy, Kläy Computing AG