我想要一份用V B编写的山东省住院发票代码

[yzsjfm]

最近再做一个住院发票,写到一半进行不下去了.不知哪位高手曾经写过类似的代码,以做参考.谢谢

[爱我的人请呼吸]

唉

[meiZiNick]

不知,帮顶

[loukyer]

来看看的~~不知道~~请高手指教吧~~呵呵·~

[vansoft]

转包啊.

[玉尘子]

我写列一个用vba开发的excel可以共享

Private Sub CommandButton1_Click()
Sheet1.PrintOut
End Sub

Private Sub CommandButton2_Click()
 Cells.Select '清空sheet1
 Selection.ClearContents
Range("A1").Select

bhnam = "" '姓名
datedd = "" '日期
keshi = "" '科室
xiangmu1 = "" '项目1
danwei1 = "" '单位1
biaozhun1 = "" '标准1
shuliang1 = "" '数量1
jine1 = "" '金额1
lsh = "" '流水号
kaipr = "" '开票人
hejidaxie = "" '合计大写
TextBox1.Text = "" '姓名
TextBox2.Text = "" '日期
TextBox3.Text = "" '科室
TextBox81.Text = "" '项目1
TextBox82.Text = "" '单位1
TextBox83.Text = "" '标准1
TextBox84.Text = "" '数量1
TextBox85.Text = "" '金额1
TextBox97.Text = "" '流水号
TextBox98.Text = "" '开票人
TextBox99.Text = "" '合计大写

End Sub

Private Sub CommandButton3_Click()
bhnam = TextBox1.Text '姓名
datedd = TextBox2.Text '日期
keshi = TextBox3.Text '科室
xiangmu1 = TextBox81.Text '项目1
danwei1 = TextBox82.Text '单位1
biaozhun1 = TextBox83.Text '标准1
shuliang1 = TextBox84.Text '数量1
jine1 = TextBox85.Text '金额1
lsh = TextBox97.Text '流水号
kaipr = TextBox98.Text '开票人
hejidaxie = TextBox99.Text '合计大写

   Range("A1").FormulaR1C1 = bhnam
   Range("a13").FormulaR1C1 = hejidaxie
   
End Sub

Private Sub CommandButton4_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

Private Sub CommandButton5_Click()
Application.Quit
End Sub