wdGoToPage, wdGoToAbsolute, count:=pagenumber Workbooks("" & workbookname).Sheets("Tax Invoice Format").Range("A1:L47").CopyPicture Appearance:=xlScreen, Format:=xlPicture ![]() 'add page at end AND copy the picture ahead of it so nest time only page is added If pagenumber = 1 ThenĪpplication.Wait (Now + TimeValue("0:00:03")) Specifies that its first time we are trying to create word dcument or not. But When i use same on another computer then it introduces blank pages. On my computer environment is Windows 10, Office 2013. To add next pages i am using the code in next line, Ībove code does not insert any blank page in word file and conversion of same to pdf is succesfull. To add 1st page to that word file i am using Set wordapp = CreateObject("Word.Application") ![]() I am copying some images to each page and converting that 150+ pages word file to PDF. ![]() I am using a word object to reference the word document.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |