用WEBBROWSER显示了EXCEL，怎么实现打印？在线等

2003-07-29 09:56:22 154 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

CentOS Stream 9中安装MySQL的详细步骤本文详细介绍了在CentOS Stream 9系统中如何进行MySQL的在线安装、离线安装以及忘记密码的恢复操作。通过阅读本文，您将能够了解并掌握在CentOS Stream 9上安装MySQL的步骤，以及在遇到忘记密码的情况下的解决方案。阅读详情

从EXCEL读入数据，并用WEBBROWSER显示，其实是在WEBBROWSER中嵌入了EXCEL，可是不能实现打印，求救！！

...全文

逆变器并联--下垂控制引入虚拟阻抗说明传统下垂控制的缺点、分析虚拟阻抗的原理和实现方法阅读详情

snowinthewind

C# 111,129 成员 642,539 内容

+ 关注 + 加入社区

切换为时间正序

atian25 2003-07-29

打赏
举报

改成c#试试看

还有篇《自动定义 Excel 的打印纸张》
http://articles.excelhome.net/list.asp?id=108

atian25 2003-07-29

打赏
举报

把资料输往Excel来列印

摘自:主题花园

这个表单将是等一下要把资料丢给Excel列印的主角，上面有一个Text1，每一栏资料都以 , 逗号来做间格，而每一笔资料间则以vbCrlf来做间隔(按Enter键啦~~)，而Command1负责把资料丢给Excel并负责所有动作。

如果你的电脑有安装Excel，可以在引用项目里找到Excel OLE Object Library，

开始实作：

(一般)
Dim MyXlsApp As Excel.Application
'设MyXlsApp为Excel的Application物件之表单的全域变数
Private Sub Command1_Click()
Dim RowData As Variant '用来拆解Text1内的每一行资料
Dim ColData As Variant '用来拆解Text1内的每一栏资料
Dim RowTmpDat As Variant 'For each行资料暂存
Dim ColTmpDat As Variant 'For each栏资料暂存
Dim R As Long
Dim C As Long
R与C是用来记录待会在Sheet上移动后的Row与Column位置

Set MyXlsApp = CreateObject("Excel.Application")
'建立Excel.Application物件
MyXlsApp.Visible = True
MyXlsApp.Workbooks.Add
'新增Wookbooks(Sheets与一些其它物件的集合)

RowData = Split(Text1.Text, vbCrLf)
'依跳行字元把Text1.Text拆成一行行的资料
R = 0
For Each RowTmpDat In RowData
'再从被拆成一行行的资料各别把栏位里的资料提出来
ColData = Split(RowTmpDat, ",")
R = R + 1
C = 64
For Each ColTmpDat In ColData
C = C + 1 'Chr(65) = A, Chr(66) = B, Chr(67) = C, ......
MyXlsApp.Range(Chr(C) & R).Select
'移到第C栏第R行
MyXlsApp.ActiveCell.value = ColTmpDat
'把拆得的每一栏资料填到Excel的Cell里
Next
Next
MyXlsApp.Worksheets.PrintPreview
'启动预览列印
MyXlsApp.DisplayAlerts = False
'不提示储存
MyXlsApp.Quit
'硬是把Excel给关闭
End Sub
执行把资料一笔一笔(按Enter来区隔)输入，比把每一笔资料一栏一栏的以英文字的逗号来分隔，然后按下Command1。

资料被一个一个输往相对应的Cell，

资料输完后，预览列印就跑出来了，赶快预览看看，并执行列印

列印完后，Excel就自动的被关闭了，嗯，太棒了，赶快去试试吧！
这样的写法有个致命的缺点──它只能输入26栏的资料，当C=65、R=1时，Cell="C1"，当C=90、R=1时，Cell="Z1"，当C=91、R=1，得到得结果是Cell="[1"，Excel没有此一表示法，所以会产生Error，解决法，对C使用Mod并对C以\除法得到的结果放置另一变数，{Cell = Chr(C\26) & Chr(C Mod 26) & R}←这是理论，正确执行码请自己调整。

atian25 2003-07-29

打赏
举报

office vba帮助

用WEBBROWSER显示了EXCEL，怎么实现打印？在线等

相关推荐