HI使用以下代码

HI使用以下代码

私有子项createpdf（）
             尝试
                 对于索引= 1到oMatrix.RowCount
                     oChk = oMatrix.Columns.Item（" matChk"）。Cells.Item（Index）.Specific
                     如果oChk.Checked然后
                         pono = oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value
                         如果IO.Directory.Exists（" \\ 192.168.0.5 \ B1_SHR \ DemoCRMail \ PO \"）= False，则
                             IO.Directory.CreateDirectory（" \\ 192.168.0.5 \ B1_SHR \ DemoCRMail \ PO \"）
                         万一
                         fname =""
                         fname =" \\ 192.168.0.5 \ B1_SHR \ FdemoCRMail \ PO \"
                         fname + =" Demo_PONo_" +"-" + oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value +" .pdf"
                         SBOApp.StatusBar.SetText（"正在准备发送采购订单编号：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Warning）
                         如果objgenerapdf.generatereport（fname，oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value）= True然后
                             尝试
                                 Msg ="尊敬的先生，"
                                 讯息+ =" 
"
                                 讯息+ =" 
"
                                 Msg + ="请在附件中找到我们的采购订单" +"-" + oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value
                                 讯息+ =" 
"
                                 讯息+ =" 
"
                                 讯息+ ="最诚挚的问候"
                                 讯息+ =" 
"
                                 讯息+ ="演示"
                                 subject ="演示采购订单" +"-" + pono
                                 邮件=新邮件
                                 昏暗的麦芽作为SAPbouiCOM.Matrix
                                 Mail.Send（oForm.Items.Item（" cmbFEmail"）。Specific.value.ToString（）。Trim（），oMatrix.Columns.Item（" matVEmail"）。Cells.Item（Index）.Specific.value，Msg  ，主题，omat，""，""，" html"，fname）
                                 oRecordset =什么都没有
                                 oRecordset = oCompany.GetBusinessObject（SAPbobsCOM.BoObjectTypes.BoRecordset）
                                 Dim str As String
                                 str ="更新[@STDTLPO]设置U_IsMailSend ='Y'，其中U_PONo ='"＆oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value＆"'"
                                 oRecordset.DoQuery（str）
                                 SBOApp.StatusBar.SetText（"邮件已成功发送，用于采购订单编号：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Success）
                             异常捕获
                                 SendFlg =假
                                 SBOApp.StatusBar.SetText（" PO发送邮件失败：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Error）
                             结束尝试
                         其他
                             SBOApp.StatusBar.SetText（" PDF生成的采购订单编号中存在一些问题：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Error）
                         万一
                     万一
                 下一个

             异常捕获
                 SBOApp.StatusBar.SetText（例如消息，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Error）
             结束尝试
         结束

谢谢

kalpen

谢谢

kalpen

编辑者：kpsapb1，2012年2月18日下午12:03

您好，感谢您的答复。

但是我会理解pdf会创建您的代码。

我需要创建一个与导出PDF发票输出时所创建的pdf相同的pdf。

我看到使用的模板不是水晶报表

总结：

1。如何恢复他用来导出发票的数据流或功能？

2。 我怎么说我可以使用他使用相同的模板来创建pdf？ （Invocke_black_stoke类型PLD）

很抱歉打破它：（

感谢所有人

嗨，

您可以尝试以下方式：

SBO_Application.ActivateMenuItem（" 7176"）

如此处所述

https://answers.sap.com/questions/400821/save-as-pdf-using-sdk.html?childToView=12965183&answerPublished=true#answer-12965183

SBO_Application.ActivateMenuItem（" 7176"）

总是询问生成的PDF的路径。

在SAP应用程序中，仅当在下面按下菜单时，行为才会发生

文件>导出>导出PDF

相反，当工具栏单击"导出PDF"时，会自动从树液路径conf中获取路径。

不幸的是，SAP似乎以不同的方式管理相同的menuid，而sdk无法区分这两种情况。