Windows 7 环境中的 PowerBuilder 10.5，使用 MS Office 2010 进行 ole 控制时出现网络打印机问题

Question

我进行了所有以下迁移，

1. 从 PowerBuilder 9 到 PowerBuilder 10.5
2. Windows XP 到 Windows 7
3. MS Office 97 和 MS Office 2003 到 MS Office 2010

从 PowerBuilder 应用程序，我们正在执行以下操作

1. 邮件合并文档
2. 打印文档
3. 通过电子邮件发送附件，

例如该功能是自动化的，我们正在从应用程序中使用。这里我们使用 OLE 控件来处理 MS Office 功能。

问题是

在它开始工作前 3 周，我的意思是下面的代码。

ole_1.object.application.ActivePrinter = i_s_letterenvelops_printer

之后他们将服务器从一个位置转移到另一个位置。

而且我也不知道我的开发机器。

在这种情况下，我该如何处理？

请帮我解决这个问题。

谢谢！

Answer 1

也许打印机名称已更改？例如，我的网络打印机名称类似于 SERVER-NAME 上的 PRINTER-NAME。另请注意，它们区分大小写。在我们的应用程序中，我们在尝试使用打印机名称之前检查它是否存在。如果不存在，我们会显示一条消息，告诉用户联系该打印机的帮助台。您可以使用 PrintGetPrinters 获取可用的打印机名称。

添加20110629：
对于应用程序来说，网络打印机名称类似于 \\SERVER-NAME\PRINTER-NAME。
一种快速检查方法是将以下行放入您的应用程序中：

messagebox("PrintGetPrinters", printgetprinters(), Information!, OK!)

Answer 2

我的情况是，网络组最近将打印机配置文件更改为基于网络，这导致应用程序无法创建 PDF 文件。
我的电脑上的打印机列表看起来和以前一模一样：

Send To OneNote 2010    winspool    nul:
Microsoft XPS Document Writer   winspool    Ne00:
CutePDF Writer  winspool    CPW2:
Adobe PDF   winspool    Ne01:
\\otwww001\T01-001-HPLaserJet-4050  winspool    Ne02:

这些打印机名称存储在一个数组中。问题在于，一个字符 (13) 被神奇地添加到了 Adob​​e PDF 行的末尾。为了解决这个问题，我在添加打印机之前删除了 char(13)（如果存在）。

if right(ls_CurrentPrinter,1) = char(13) then 
  ls_CurrentPrinter =left(ls_CurrentPrinter,len(ls_CurrentPrinter) - 1)
end if
IF LEN(ls_CurrentPrinter) > 0 THEN
 THIS.ufp_AddNewPrinter(ls_CurrentPrinter)
END IF

它解决了我的问题。

环境： - Windows 7 - PowerBuilder 12.6