VB程序打印多份不同方向文档：如何自动识别并设置打印方向？

一、自动识别文档打印方向是否可行？ #

可行，但取决于文档类型：

• 结构化文档（如Word、PDF、Excel）本身存储了打印方向的元数据，可通过对应API读取；
• 非结构化文档（如纯文本、图片）无内置打印方向信息，可通过内容宽高比判断（比如图片宽度大于高度时设为横向）。

二、VB编程检查文件打印方向的具体实现 #

1. 处理Word文档（.docx/.doc） #

借助Microsoft.Office.Interop.Word库读取文档页面设置：

Imports Microsoft.Office.Interop.Word

Public Function GetWordDocumentOrientation(filePath As String) As Boolean
    Dim wordApp As New Application()
    Dim doc As Document = wordApp.Documents.Open(filePath)
    Dim isLandscape As Boolean = doc.PageSetup.Orientation = WdOrientation.wdOrientLandscape
    doc.Close()
    wordApp.Quit()
    Return isLandscape
End Function

调用该函数获取结果后，直接赋值给pageSettings.Landscape即可。

2. 处理PDF文档 #

使用iTextSharp库读取PDF页面旋转属性（旋转90/270度通常对应横向打印）：

Imports iTextSharp.text.pdf

Public Function GetPdfDocumentOrientation(filePath As String) As Boolean
    Dim reader As New PdfReader(filePath)
    Dim pageRotation As Integer = reader.GetPageRotation(1) ' 获取第一页旋转角度
    reader.Close()
    ' 若未设置旋转，可结合页面宽高判断：reader.GetPageSize(1).Width > reader.GetPageSize(1).Height
    Return pageRotation = 90 Or pageRotation = 270
End Function

3. 处理图片文件（.jpg/.png等） #

通过Image类获取宽高比判断方向：

Imports System.Drawing

Public Function GetImageOrientation(filePath As String) As Boolean
    Using img As Image = Image.FromFile(filePath)
        Return img.Width > img.Height ' 宽大于高则为横向
    End Using
End Function

4. 处理Excel文档（.xlsx/.xls） #

借助Microsoft.Office.Interop.Excel库读取工作表设置：

Imports Microsoft.Office.Interop.Excel

Public Function GetExcelWorksheetOrientation(filePath As String) As Boolean
    Dim excelApp As New Application()
    Dim workbook As Workbook = excelApp.Workbooks.Open(filePath)
    Dim worksheet As Worksheet = workbook.Worksheets(1)
    Dim isLandscape As Boolean = worksheet.PageSetup.Orientation = XlPageOrientation.xlLandscape
    workbook.Close()
    excelApp.Quit()
    Return isLandscape
End Function

三、批量打印适配逻辑 #

• 遍历待打印文件列表，逐个判断其打印方向；
• 为每个文件创建独立的PageSettings实例，将Landscape属性设为判断结果；
• 使用该实例执行打印，避免全局统一设置导致方向错误。

注意：使用Office Interop库时，需确保客户端安装对应版本Office，且要正确释放COM对象，避免内存泄漏。

内容的提问来源于stack exchange，提问作者Jordan Trajkov