I have this vba code:
Dim objCht As ChartObject
For i = 1 To 57
sheetxx(i).Select
Application.Wait (Now + TimeValue(“0:00:02”))
pdffilename = fname2 & “” & sheetxx(i).Name & “.pdf”
jpegfilename = fname2 & “” & sheetxx(i).Name & “.jpg”
Shell (“D:khalidnircmd.exe savescreenshot ” & jpegfilename)
Shell (“D:khalidscreentopdf.exe ” & jpegfilename & ” ” & pdffilename)
Next i
It was working good but i formatted my pc then getting problem in the pdf pages not shown completely.
Any help please appreciated.
Thank you all.