以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  piao据打印时,浏览不对是什么问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176552)

--  作者:myredsun
--  发布时间:2022/4/18 9:17:00
--  piao据打印时,浏览不对是什么问题?
请教各位老师:票据窗口正常,点打印时,浏览就不对了,是什么问题?

图片点击可在新窗口打开查看此主题相关图片如下:预览.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:票据.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/4/18 9:19:00
--  
窗口模板导出发上来看看
--  作者:myredsun
--  发布时间:2022/4/18 10:59:00
--  
我是直接在窗口上加控件做的。没有模板。代码如下窗口表事件

 

窗口与控件事件

 

收据打印_Button1_Click

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim dr As DataRow = Tables("土地情况.合同管理.交租情况").Current.DataRow

 

If dr("确定") = False Then

    MessageBox.Show("只有[确定]勾选才能打印!")

    e.Cancel = True

Else

    doc.Preview

End If

 

收据打印_DateTimePicker1_DataFormat

 

e.Value = Format(e.Value,"yyyy年MM月dd日")

 

收据打印_DateTimePicker4_DataFormat

 

e.Value = Format(e.Value,"yyyy年MM月dd日")

 

收据打印_DateTimePicker5_DataFormat

 

e.Value = Format(e.Value,"yyyy年MM月dd日")

 

收据打印_Label18_DataFormat

 

e.Text = "¥ " & e.Value & "元"

 

收据打印_Label22_DataFormat

 

e.Text = CUMoney(e.Value)

 

收据打印_Label75_DataFormat

 

e.Text = CUMoney(e.Value)

 

收据打印_Label76_DataFormat

 

e.Text = CUMoney(e.Value)

 

收据打印_Label77_DataFormat

 

e.Text = "¥ " & e.Value & "元"

 

收据打印_Label78_DataFormat

 

e.Text = "¥ " & e.Value & "元"


--  作者:有点蓝
--  发布时间:2022/4/18 11:46:00
--  
不是指execl模板。


--  作者:myredsun
--  发布时间:2022/4/18 12:38:00
--  
不知哪里出问题,传不了
--  作者:myredsun
--  发布时间:2022/4/18 12:40:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:上传.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:为什么发生错误,传不了.png
图片点击可在新窗口打开查看

--  作者:myredsun
--  发布时间:2022/4/18 12:50:00
--  
上传文件类型不对

[此贴子已经被作者于2022/4/18 12:51:57编辑过]

--  作者:有点蓝
--  发布时间:2022/4/18 13:33:00
--  
压缩后在上传压缩文件
--  作者:myredsun
--  发布时间:2022/4/18 14:34:00
--  
上传
[此贴子已经被作者于2022/4/18 17:39:00编辑过]

--  作者:myredsun
--  发布时间:2022/4/18 14:37:00
--  
怪了,上传了没有看到文件。真服了
[此贴子已经被作者于2022/4/18 17:40:03编辑过]