如何在C#/VB.NET中打印ODT文件？VB.NET+AODL打印对象未识别求助

嘿，我来帮你搞定这个ODT打印的问题，尤其是你用AODL修改后遇到的「对象未被识别」错误——我之前也踩过类似的坑，下面分场景给你实用的解决方案：

一、通用ODT打印方案（不依赖AODL） #

如果只是需要打印ODT文件，不管有没有修改，这两种方法最靠谱：

1. 利用LibreOffice/OpenOffice的COM接口 #

ODT是OpenDocument格式，LibreOffice自带的COM组件可以直接调用打印，兼容性拉满。给你VB.NET的示例代码：

' 创建LibreOffice服务实例
Dim libreOffice As Object = CreateObject("com.sun.star.ServiceManager")
Dim desktop As Object = libreOffice.createInstance("com.sun.star.frame.Desktop")

' 转换文件路径为LibreOffice识别的URL格式
Dim fileUrl As String = "file:///" + System.IO.Path.GetFullPath("你的文档.odt").Replace("\", "/")
' 打开文档
Dim document As Object = desktop.loadComponentFromURL(fileUrl, "_blank", 0, New Object() {})

' 配置打印机（留空则用默认打印机）
Dim printerProps As New Object() {CreateObject("com.sun.star.beans.PropertyValue")}
printerProps(0).Name = "Name"
printerProps(0).Value = "你的打印机名称"

' 执行打印
document.print(printerProps)

' 关闭文档并释放资源
document.close(True)
System.Runtime.InteropServices.Marshal.ReleaseComObject(libreOffice)

注意：需要先安装LibreOffice/OpenOffice，并且在系统COM组件中启用相关服务（安装时默认会开启）。

2. 转PDF后打印（更稳定） #

如果担心ODT打印格式出错，可以先把ODT转成PDF再打印——PDF的打印效果更可控。结合LibreOffice的转换功能，VB.NET示例：

' 先把ODT转成PDF
Dim libreOffice As Object = CreateObject("com.sun.star.ServiceManager")
Dim desktop As Object = libreOffice.createInstance("com.sun.star.frame.Desktop")

Dim inputUrl As String = "file:///" + Path.GetFullPath("修改后的文档.odt").Replace("\", "/")
Dim outputUrl As String = "file:///" + Path.GetFullPath("临时文档.pdf").Replace("\", "/")

' 配置转换参数
Dim convertProps As New Object(1) {}
convertProps(0) = CreateObject("com.sun.star.beans.PropertyValue")
convertProps(0).Name = "FilterName"
convertProps(0).Value = "writer_pdf_Export"
convertProps(1) = CreateObject("com.sun.star.beans.PropertyValue")
convertProps(1).Name = "Overwrite"
convertProps(1).Value = True

' 执行转换
Dim document As Object = desktop.loadComponentFromURL(inputUrl, "_blank", 0, New Object() {})
document.storeToURL(outputUrl, convertProps)
document.close(True)

' 打印PDF（调用系统默认PDF阅读器的打印功能）
Process.Start(New ProcessStartInfo() With {
    .FileName = "临时文档.pdf",
    .Verb = "print",
    .CreateNoWindow = True
})

' 记得用完删除临时PDF
File.Delete("临时文档.pdf")

二、针对AODL修改后「对象未被识别」的解决办法 #

AODL是个比较老旧的库，已经很久没维护了，很多接口兼容性差。你遇到的错误大概率是直接调用了AODL不存在的打印方法，或者修改后文档状态异常。按下面的步骤排查：

1. 先确保AODL修改后的文档是完好的 #

有时候AODL修改后会生成损坏的ODT文件，先手动用LibreOffice打开看看能不能正常显示。如果打不开，说明修改代码有问题，比如：

' 正确的AODL修改+保存流程
Dim doc As New TextDocument()
doc.Load("原始文档.odt")

' 示例：添加一段文本
Dim newPara As New Paragraph(doc)
newPara.TextContent.Add(New SimpleText(doc, "这是用AODL添加的内容"))
doc.Content.Add(newPara)

' 务必正确保存并释放资源
doc.SaveTo("修改后的文档.odt")
doc.Dispose()

如果保存后的文档能正常打开，那问题就出在打印环节。

2. 不要直接用AODL对象打印，保存后用外部方法打印 #

AODL本身没有内置的打印接口，你如果尝试调用某个打印相关的方法，自然会出现「对象未被识别」。正确的做法是：修改后保存为ODT文件，再用上面的LibreOffice COM或者转PDF方法打印。

3. 内存中处理（不存磁盘）的方案 #

如果不想保存到磁盘，可以把AODL的文档导出到内存流，再生成临时文件打印：

Dim doc As New TextDocument()
doc.Load("原始文档.odt")
' 执行你的修改操作...

' 导出到内存流
Using ms As New MemoryStream()
    doc.SaveTo(ms)
    ms.Position = 0
    ' 生成临时ODT文件
    Dim tempPath As String = Path.GetTempFileName().Replace(".tmp", ".odt")
    File.WriteAllBytes(tempPath, ms.ToArray())
    
    ' 用LibreOffice打印临时文件
    Dim libreOffice As Object = CreateObject("com.sun.star.ServiceManager")
    Dim desktop As Object = libreOffice.createInstance("com.sun.star.frame.Desktop")
    Dim fileUrl As String = "file:///" + tempPath.Replace("\", "/")
    Dim document As Object = desktop.loadComponentFromURL(fileUrl, "_blank", 0, New Object() {})
    document.print(New Object() {})
    document.close(True)
    
    ' 删除临时文件
    File.Delete(tempPath)
End Using

最后提个建议 #

如果可以的话，尽量用Apache ODFDOM替代AODL——ODFDOM是活跃维护的开源库，兼容性和功能都比AODL强很多，能避免很多奇怪的旧库问题。

内容的提问来源于stack exchange，提问作者Ismael Hartmann