這裡只說列印
sub printexcel()
on error resume next
parent.parent.BodyFrame.Form1.excelData.Export "c:\tempreport.htm", 0, 2
set xlApp = CreateObject("EXCEL.Application")
xlApp.Workbooks.Open("c:\tempreport.htm")
str = parent.parent.BodyFrame.Form1.printset.value
str = split(str,"|")
for t = lbound(str) to ubound(str)
j = InStr(str(t),"=")
attr = left(str(t),j-1)
aval = right(str(t),len(str(t))-j)
if (aval <> "") then
if (attr = "PagerSize") then
xlApp.ActiveSheet.PageSetup.PaperSize = aval
elseif (attr = "Orientation") then
xlApp.ActiveSheet.PageSetup.Orientation = aval
elseif (attr = "LeftMargin") then
xlApp.ActiveSheet.PageSetup.LeftMargin = aval/0.035
elseif (attr = "RightMargin") then
xlApp.ActiveSheet.PageSetup.RightMargin = aval/0.035
elseif (attr = "TopMargin") then
xlApp.ActiveSheet.PageSetup.TopMargin = aval/0.035
elseif (attr = "BottomMargin") then
xlApp.ActiveSheet.PageSetup.BottomMargin = aval/0.035
elseif (attr = "HeaderMargin") then
xlApp.ActiveSheet.PageSetup.HeaderMargin = aval/0.035
elseif (attr = "FooterMargin") then
xlApp.ActiveSheet.PageSetup.FooterMargin = aval/0.035
end if
end if
Next
xlApp.Workbooks(1).Save
if (pv=1) then
xlApp.Visible = true
xlApp.Range(parent.parent.BodyFrame.Form1.excelData.ActiveWindow.ViewableRange).PrintPreview
else
xlApp.Range(parent.parent.BodyFrame.Form1.excelData.ActiveWindow.ViewableRange).PrintOut
end if
xlApp.Quit
'Set fs = CreateObject("Scripting.FileSystemObject")
'if fs.FileExists("c:\tempreport.htm") then
' fs.DeleteFile "c:\tempreport.htm",True
'end if
end sub
sub printpreview()
pv=1
call printexcel()
end sub
sub printout()
pv=0
call printexcel()
end sub
意思還是利用Excel來列印
