Save as PDF not working on a domained Windows 7/Vista box

T

Terry Galentine

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 Time Sheets/" & 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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top