原本想着poi包应该支持设置一页宽一页高,设置是能设置,虽然值设置上去了,但是两个单选按钮无法实现固定,后来不得不使用VB了,唉
代码实现如下,
Imports System.IO
Module Module1
Sub Main()
Dim excelfileName As String
Dim commandLine As String
Dim commandArray() As String
commandLine = Command()
commandArray = Split(commandLine, ",")
excelfileName = commandArray(0)
Dim data As String = ""
Dim buffer As String
Dim sr As StreamReader = New StreamReader(commandArray(1), System.Text.Encoding.Default)
Do While sr.Peek() > 0
buffer = sr.ReadLine()
data = data & buffer & " "
Loop
sr.Close()
sr = Nothing
Dim xlApp As Object
xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Dim xlBooks As Object = xlApp.Workbooks
Dim xlBook As Object = xlBooks.Open(excelfileName)
' Dim xlSheets As Object = xlBook.Sheets
Dim xlSheets As Object
For Each xlSheets In xlBook.Sheets
With xlSheets.PageSetup
.Orientation = 2
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterFooter = data
End With
Next
xlBook.save()
xlBook.close()
xlApp.Quit()
End Sub
End Module