Domino中通用的视图打印(利用Excel打印)

原创 2004年07月07日 16:17:00
Sub Initialize
 Dim session As New notessession
 Dim db As notesdatabase 
 Set db=session.currentdatabase
 
 Dim view As notesview
 Set view=db.getview("PrintView") 
 
 iPageLine=Int(Inputbox("每页行数?"))
 
 Dim excelApplication As Variant
 Dim excelWorkbook As Variant
 Dim excelSheet As Variant   
 
 Set excelApplication = CreateObject("Excel.Application")
 excelApplication.Visible = True
 Set excelWorkbook = excelApplication.Workbooks.Add
 Set excelSheet = excelWorkbook.Worksheets("Sheet1")
 
 REM 输出开始 
 '设置行高
 excelSheet.Rows.RowHeight=40 
 '完成
 '垂直居中
 excelSheet.Rows.VerticalAlignment =2
 '完成
 
 
 
 Dim navigator As notesviewnavigator
 Dim entry As notesviewentry
 Set navigator=view.createviewnav()
 Set entry=navigator.getfirst
 
 i=0
 Do While(Not entry Is Nothing)
  If i Mod iPageLine=0 Then '10行换页[A4]
   If i<>0 Then
    j=1
    Forall columnvalue In Entry.columnvalues
     excelSheet.Cells(i,j)=columnvalue
     j=j+1
    End Forall
    Set entry=navigator.getnext(entry)
   End If
   excelSheet.Range(Cstr(i+1)+":"+Cstr(i+1)).Font.Size=18
   excelSheet.Range(Cstr(i+1)+":"+Cstr(i+1)).Borders.Weight=1
   excelSheet.Rows(i+1).RowHeight=60
   excelSheet.Range("A"+Cstr(i+1)+":"+"E"+Cstr(i+1)).Merge(True) '合并单元格
   excelSheet.Range("A"+Cstr(i+1)+":"+"E"+Cstr(i+1)).MergeCells=True '合并单元格
   excelSheet.Cells(i+1,1)="报表名称"
   excelSheet.Cells(i+1,1).HorizontalAlignment=3
   excelSheet.Cells(i+1,1).VerticalAlignment=3 
   
   k=1
   Forall m In view.columns
    excelSheet.Cells(i+2,k)=m.title
    excelSheet.Cells(i+2,k).HorizontalAlignment=3
    k=k+1
   End Forall      
   i=i+3
  Else
   j=1
   Forall columnvalue In Entry.columnvalues
    excelSheet.Cells(i,j)=columnvalue
    '设置列宽
    excelSheet.Columns(j).ColumnWidth=20
    '完成
    j=j+1
   End Forall 
   Set entry=navigator.getnext(entry)
   i=i+1
  End If  
 Loop 
 i=i-1
 If i Mod iPageLine<>0 Then
  For k=1 To iPageLine-(i Mod iPageLine)
   excelSheet.Cells(i+k,1)=" "
  Next  
 End If 
 
 REM 输出结束  
 
 excelSheet.UsedRange.Select
 'excelSheet.UsedRange.EntireColumn.AutoFit
 excelSheet.UsedRange.WrapText=True 
 
 excelSheet.UsedRange.Borders.Weight=2 
 excelSheet.UsedRange.VerticalAlignment = 3
 'excelSheet.UsedRange.HorizontalAlignment=4'水平右对齐
 
 
 excelWorkbook.PersonalViewPrintSettings=True '单元格中文本自动换行
 
 excelWorkbook.PrintPreview
 REM excelWorkbook.PrintOut  
 
 excelApplication.quit
 Set excelSheet=Nothing
End Sub

Domino中通用的视图打印(利用Excel打印)

Sub Initialize Dim session As New notessession Dim db As notesdatabase  Set db=session.currentdataba...
  • gjd111686
  • gjd111686
  • 2004年07月07日 16:17
  • 1464

通过ie方式打印当前页面

新建一个     “打印”  热点或者按钮,内容为:printview();   调用JS Header ---------------参考海康人员管理的在职员工录入表单------------...
  • szheng1989
  • szheng1989
  • 2011年10月16日 21:23
  • 328

lotus domino EXCEL导出功能开发

利用JAVA代理实现
  • wendykui
  • wendykui
  • 2017年02月17日 14:00
  • 638

JSP中用Excel简单实现页面打印

凡是编写过JSP程序的程序员估计都比较头疼打印的实现,因为直接利用IE的打印功能实在是很难满足用户的需求,主要表现在:用程序控制页面的设置很麻烦,需要精通JS;页眉和页脚只能进行简单的设置;在进行报表...
  • xiao190128
  • xiao190128
  • 2014年01月23日 14:04
  • 2303

API连接打印机

据我所知,Type PRINTER_DEFAULTS        pDatatype As String       pDevMode As Long       DesiredAccess As ...
  • jackyzhan
  • jackyzhan
  • 2005年12月26日 08:55
  • 618

Java访问lotus DIIOP的应用

  • 2008年08月01日 16:08
  • 909KB
  • 下载

会操作excel就会批量证书打印!

小猫统计专家,使批量证书打印变得很简单。     对数据库中大量数据完成编辑、审核、汇总之后,需要对每一条记录进行固定格式的打印,例如对中小学教师进行"山东省中小学教师专业水平评价证书"打印,用小猫统...
  • bq_cui
  • bq_cui
  • 2015年10月15日 20:04
  • 2877

DevExpress Winform 所有可打印控件(gridcontrol等)通用导出excel方法

关于DevExpress Winform 的所有可打印控件的导出excel 的通用方法,并且解决DevExpress控件自带的方法存在的缺陷问题 1、解决GridControl自带方法不能导出图片; ...
  • u012097590
  • u012097590
  • 2016年10月12日 15:19
  • 1668

.net实现生成及打印条形码功能

.net实现生成及打印条形码功能,下面简单总结了自己的实现方法。        1.引用dll文件      将FLX.WebControls.dll文件拷贝到顶目的bin文件夹目录中; ...
  • vera514514
  • vera514514
  • 2012年12月25日 13:55
  • 791

Lotus Notes/domino事件、属性、函数和命令

Notes事件     数据库、视图、表单或域事件的 Script 运行在用户的工作站上。   事件列表: click        操作、按钮或热点,在它们被选中时发生 Enterin...
  • biaorger
  • biaorger
  • 2013年03月25日 21:51
  • 1917
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Domino中通用的视图打印(利用Excel打印)
举报原因:
原因补充:

(最多只允许输入30个字)