Save as PDF not working on a domained Windows 7/Vista box
I have an VB script that has worked fine for any XP box. The script does a
save as PDF (using the save as pdf add in) for excel, then save the pdf in a file within SharePoint on an external site. As we plan on moving to Windows 7 we have tested this and have issues with the file acturally saving. it creates a file put the file is empty. this also happens on Vista. but has no issues when it comes to XP. Applications: Office 2007 SP 2 MOSS SP1 Save as PDF add-in Script: Private Sub CommandButton1_Click() Dim iReply As Integer iReply = MsgBox(Prompt:="By using my login and submitting my time for this pay period, I understand that the information submitted will be attributed to me and is true and accurate to the best of my knowledge.", _ Buttons:=vbYesNoCancel, Title:="Submit Timesheet") If iReply = vbYes Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "https://esign/Employee%20Time%20Sheets/" & Range("c6").Value & "/" & Range("AT2").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False CreateObject("WScript.Shell").Popup "Timesheet Submitted", _ 5, "Timesheet has been successfully submitted, closing timesheet." ActiveWorkbook.Close False ' closes the active workbook without saving any changes ElseIf iReply = vbNo Then CreateObject("WScript.Shell").Popup "Timesheet Not Submitted", _ 5, "Timesheet was not submitted, closing timesheet." Else 'They cancelled (VbCancel) Exit Sub End If End Sub |
Save as PDF not working on a domained Windows 7/Vista box
Hi Terry
Do you have also problems with my example workbook on this page http://www.rondebruin.nl/pdf.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Terry Galentine" wrote in message ... I have an VB script that has worked fine for any XP box. The script does a save as PDF (using the save as pdf add in) for excel, then save the pdf in a file within SharePoint on an external site. As we plan on moving to Windows 7 we have tested this and have issues with the file acturally saving. it creates a file put the file is empty. this also happens on Vista. but has no issues when it comes to XP. Applications: Office 2007 SP 2 MOSS SP1 Save as PDF add-in Script: Private Sub CommandButton1_Click() Dim iReply As Integer iReply = MsgBox(Prompt:="By using my login and submitting my time for this pay period, I understand that the information submitted will be attributed to me and is true and accurate to the best of my knowledge.", _ Buttons:=vbYesNoCancel, Title:="Submit Timesheet") If iReply = vbYes Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "https://esign/Employee%20Time%20Sheets/" & Range("c6").Value & "/" & Range("AT2").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False CreateObject("WScript.Shell").Popup "Timesheet Submitted", _ 5, "Timesheet has been successfully submitted, closing timesheet." ActiveWorkbook.Close False ' closes the active workbook without saving any changes ElseIf iReply = vbNo Then CreateObject("WScript.Shell").Popup "Timesheet Not Submitted", _ 5, "Timesheet was not submitted, closing timesheet." Else 'They cancelled (VbCancel) Exit Sub End If End Sub |
Save as PDF not working on a domained Windows 7/Vista box
If you use Pdf forms for SharePoint, you can use PdfForms.Services APIs to manipulate dynamic PDFs (XFA) in SharePoint 2010. More info he http://www.pdfsharepoint.com
Robert On Friday, May 28, 2010 3:40 PM Terry Galentine wrote: I have an VB script that has worked fine for any XP box. The script does a save as PDF (using the save as pdf add in) for excel, then save the pdf in a file within SharePoint on an external site. As we plan on moving to Windows 7 we have tested this and have issues with the file acturally saving. it creates a file put the file is empty. this also happens on Vista. but has no issues when it comes to XP. Applications: Office 2007 SP 2 MOSS SP1 Save as PDF add-in Script: Private Sub CommandButton1_Click() Dim iReply As Integer iReply = MsgBox(Prompt:="By using my login and submitting my time for this pay period, I understand that the information submitted will be attributed to me and is true and accurate to the best of my knowledge.", _ Buttons:=vbYesNoCancel, Title:="Submit Timesheet") If iReply = vbYes Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "https://esign/Employee%20Time%20Sheets/" & Range("c6").Value & "/" & Range("AT2").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ CreateObject("WScript.Shell").Popup "Timesheet Submitted", _ 5, "Timesheet has been successfully submitted, closing timesheet." ActiveWorkbook.Close False ' closes the active workbook without saving any changes ElseIf iReply = vbNo Then CreateObject("WScript.Shell").Popup "Timesheet Not Submitted", _ 5, "Timesheet was not submitted, closing timesheet." Else 'They cancelled (VbCancel) Exit Sub End If End Sub On Friday, May 28, 2010 4:02 PM Ron de Bruin wrote: Hi Terry Do you have also problems with my example workbook on this page http://www.rondebruin.nl/pdf.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm Submitted via EggHeadCafe ASP.NET Drawing a chart using OWC11 - Office Web Components http://www.eggheadcafe.com/tutorials...omponents.aspx |
All times are GMT +1. The time now is 07:36 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com