โค็ดแก้ไข กรณีสั่งพิมพ์ออก pdf หรือ printer ภาษาไทย ของ control label อ่านไม่ออก แต่ ของ ctrl text อ่านออก ใน windows 7- 8
* paste CaptionToText() in form load
Public Sub CaptionToText()
Dim strComputer
Dim objWMIService, colOperatingSystems, objOperatingSystem
Dim ctrl, i
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
If InStr(1, objOperatingSystem.Caption, "windows xp", vbTextCompare) Then
Else
'win 7, 8
For Each ctrl In Me.Controls
If TypeOf ctrl Is Label Then
i = i + 1
Load Me.txtMove(i)
If ctrl.Name = "lblCode" Then
Me.txtMove(i).Move ctrl.Left, ctrl.Top - 100, ctrl.Width, ctrl.Height
ElseIf ctrl.Name = "lbltelHome" Then
Me.txtMove(i).Move ctrl.Left, ctrl.Top - 150, ctrl.Width, ctrl.Height
Else
Me.txtMove(i).Move ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height
End If
Me.txtMove(i).Visible = True
Me.txtMove(i).Text = ctrl.Caption
Me.txtMove(i).ForeColor = ctrl.ForeColor
Me.txtMove(i).Font = ctrl.Font
Me.txtMove(i).FontBold = ctrl.FontBold
Me.txtMove(i).FontSize = ctrl.FontSize
ctrl.Visible = False
End If
Next ctrl
End If
Next
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น