Post code:
Private Sub p_initial ()
Dim StrPath $
Dim As Integer I
Dim m_item As String
Dim m_code As String
Dim m_result As String
Dim m_symb As String
Dim num As Integer
Dim i_code As String
Dim i_result As String
Dim n As Integer
StrPath=App. Path & amp; "\ configDB ini"
Num=Val (ReadIni (StrPath, "Number", "project_num"))
For n=0 To 14
For I=0 To num 1
M_item=ReadIni (StrPath, "Item" & amp; I, "the project")
M_code=ReadIni (StrPath, "Item" & amp; I, "code")
I_code=m_item & amp; "(" & amp; M_code & amp;
")"If the item (n.) the Text=i_code Then
Pname (n)=m_item
Code (n)=m_code
End the If
Next I
The Next n
Num=Val (ReadIni (StrPath, "Number", "result_num"))
For n=0 To 14
For I=0 To num 1
M_result=ReadIni (StrPath, "result" & amp; I, "result")
M_symb=ReadIni (StrPath, "result" & amp; I, "symb")
I_result=m_result & amp; "/" & amp; M_symb
If the result (n.) the Text=i_result Then
Symb (n)=m_symb
Res (n)=m_result
End the If
Next I
The Next n
End Sub
Private Sub f_print ()
Call p_initial
Printer. PaperSize=9
Printer. ScaleLeft=20
-Printer. ScaleTop=25
Printer. ScaleWidth=210
Printer. ScaleHeight=297
Printer. CurrentX=0
Printer. CurrentY=0
Printer. The ScaleMode=6
X=67.733
Y=4.233
FNT=14
Printer. FontName="bold"
TXT="tongxin county horse high-chuang township health hospital inspection report"
Dy=PRNT (X, y, FNT, TXT)
X=8.467
Y=14.817
FNT=13
Printer. FontName="tahoma"
TXT="name:"
Dy=PRNT (X, y, FNT, TXT)
X=33.867
Y=14.817
FNT=13
Printer. FontName="tahoma"
TXT=name. Text
Dy=PRNT (X, y, FNT, TXT)
X=66.675
Y=14.817
FNT=13
Printer. FontName="tahoma"
TXT="sex don't:
"Dy=PRNT (X, y, FNT, TXT)
X=88.9
Y=14.817
FNT=13
Printer. FontName="tahoma"
Gender. TXT=Text
Dy=PRNT (X, y, FNT, TXT)
X=131.498
Y=14.817
FNT=13
Printer. FontName="tahoma"
TXT="years of age:
"Dy=PRNT (X, y, FNT, TXT)
X=152.4
Y=14.817
FNT=13
Printer. FontName="tahoma"
TXT=age. The Text
Dy=PRNT (X, y, FNT, TXT)
X=8.467
Y=23.019
FNT=13
Printer. FontName="tahoma"
TXT="patient type:
"Dy=PRNT (X, y, FNT, TXT)
X=33.867
Y=23.019
FNT=13
Printer. FontName="tahoma"
TXT type=patients. The Text
Dy=PRNT (X, y, FNT, TXT)
X=66.675
Y=23.019
FNT=13
Printer. FontName="tahoma"
TXT="family room:
"Dy=PRNT (X, y, FNT, TXT)
X=88.9
Y=23.019
FNT=13
Printer. FontName="tahoma"
TXT=department. The Text
Dy=PRNT (X, y, FNT, TXT)
X=131.498
Y=23.019
FNT=13
Printer. FontName="tahoma"
TXT="diagnostic:
"Dy=PRNT (X, y, FNT, TXT)
X=152.4
Y=23.019
FNT=13
Printer. FontName="tahoma"
TXT=diagnose. Text
Dy=PRNT (X, y, FNT, TXT)
Printer. DrawWidth=2
Printer. The Line (8.467, 31.75) - (200.907, 31.75)
Printer. The Line (8.467, 40.517) - (200.907, 40.517)
Printer. The Line (8.467, 118.533) - (200.907, 118.533)
Printer. DrawWidth=1
Printer. The Line (166.983, 125.889) - (200.907, 125.889)
X=12.7
Y=33.867
FNT=13
Printer. FontName="bold"
Printer. FontBold=True
TXT="serial number"
Dy=PRNT (X, y, FNT, TXT)
X=42.333
Y=33.867
FNT=13
Printer. FontName="bold"
Printer. FontBold=True
TXT="project name"
Dy=PRNT (X, y, FNT, TXT)
X=85.461
Y=33.867
FNT=13
Printer. FontName="bold"
Printer. FontBold=True
TXT="project code"
Dy=PRNT (X, y, FNT, TXT)
X=131.233
Y=33.867
FNT=13
Printer. FontName="bold"
Printer. FontBold=True
TXT="result"
Dy=PRNT (X, y, FNT, TXT)
X=168.804
Y=33.867
FNT=13
Printer. FontName="bold"
Printer. FontBold=True
TXT="logo"
Dy=PRNT (X, y, FNT, TXT)
X=10.583
Y=122.255
FNT=12
Printer. FontName="tahoma"
TXT="inspection date:
"Dy=PRNT (X, y, FNT, TXT)
X=29.633
Y=122.255
FNT=12
Printer. FontName="tahoma"
TXT=Format (Now, "yyyy - mm - dd hh: mm: ss")
Dy=PRNT (X, y, FNT, TXT)
X=70
Y=122.255
FNT=12
Printer. FontName="tahoma"
TXT="inspection doctor:
"Dy=PRNT (X, y, FNT, TXT)
X=94
Y=122.255
FNT=12
Printer. FontName="tahoma"
TXT=makes doctors. Text
Dy=PRNT (X, y, FNT, TXT)
X=117
Y=122.255
FNT=12
Printer. FontName="tahoma"
TXT="inspector:
"Dy=PRNT (X, y, FNT, TXT)
X=133.117
Y=122.255
FNT=12
Printer. FontName="tahoma"
TXT=inspector. Text
Dy=PRNT (X, y, FNT, TXT)
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull