I don't know how to mark something uncompleted.
The code works every other time.
<code>
Sub CreateReportPDF()
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Run CopyData
Set wdapp = Word.Application
Set wddoc = wdapp.documents.Add
Application.ScreenUpdating = False
wdapp.Visible = True
With wddoc.PageSetup
.Orientation = wdOrientLandscape
.PageWidth = InchesToPoints(17)
.PageHeight = InchesToPoints(11)
End With
For Each sh In Worksheets(Array("Power Report", "ATS Data"))
ThisWorkbook.Sheets(sh.Name).UsedRange.Copy
With wdapp
.Visible = True
.Selection.Paste
End With
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
wddoc.SaveAs2 MyDocuments & "\" & "Power Report " & Format((Date), "mm - dd
- yy") & Format((Time), " hhmm") 'change file name as u like
MsgBox "The power report has been generated and saved to your My Documents
Folder"
wddoc.Close
wdapp.Quit
Set wddoc = Nothing
Set wdapp = Nothing
End Sub
</code>
The first time you run the routine it works no issues. The next time you
run the routine it fails on error 462. Then you can run it again and it's
fine. Error 462 occurs every other time. I have tried every fix I can
find for that error and none of it seems to work. There are some sites
that claim you should not use a With command when using a word application
object.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
