excel vba - Error 1004 when printing PDFs after upgrade to Office 2016 -


i have workbook of ~50 worksheets. code loops through every sheet, assigns title row, print area , pagebreaks on each sheet , after prints pdf specific folder. code worked fine until last week, when have updated office 2016 (from excel 2013).

i error in part of code repeated @ every sheet, after ~25 pdfs printed (at same sheet default, when suppress part of code prints sheet, error on next sheet). error message appears in line marked **.

 sub updatepdfs_click()    'some code saves workbook server location 3 times         (first copy of initial one, second later opened & changed,          , third 1 running code (deleted @ end))    'code opens second workbook (pdfbook) , make adjustments          (copying sheets , deleting content)    'code follows:    pdfbook.save   pdfbook.close true   set pdfbook = application.workbooks.open(def_path & dir_name & "\" & filename2)   dim sht01 worksheet     each sht01 in pdfbook.worksheets        if sht01.name = "sheet1"              sht01.activate              ' rows count & hpagebreaks              finalrow = cells(rows.count, "d").end(xldown).row ' number of rows print              printareaandhpagebreaks finalrow ' subroutine repeated              ' pdf print              activesheet.range("a1:d" & finalrow).exportasfixedformat type:=xltypepdf, _              filename:=path_pdf & "so-" & activesheet.range("a2") & "-" & activesheet.range("b2") & "-sheet1", quality:=xlqualityminimal              activewindow.view = xlnormalview        elseif sht01.name = "sheet2"               sht01.activate      'etc sheets want print                 else                ' sht01.delete                 end if             next sht01     pdfbook.close true    ' close dummy   msgbox "pdfs created sucessfully"   application.displayalerts = false     dim strfile string     strfile = activeworkbook.fullname     activeworkbook.saved = true     application.activeworkbook.changefileaccess xlreadonly     kill strfile     application.activeworkbook.close true  application.displayalerts = true  application.screenupdating = true end sub   sub printareaandhpagebreaks(finalrow long)   ' define print area   activesheet.pagesetup.printarea = ""   activesheet.resetallpagebreaks   activesheet     .pagesetup.printtitlerows = activesheet.rows(7).address     .pagesetup.printarea = "a1:d" & finalrow     .vpagebreaks.add before:=columns("d")     .pagesetup.zoom = false     .pagesetup.fittopageswide = 1     .pagesetup.fittopagestall = false   end     dim numhpb long     dim rng range     activewindow.view = xlpagebreakpreview     numhpb = activesheet.hpagebreaks.count   j = 1 numhpb     set rng = activesheet.range("a" &     activesheet.hpagebreaks.item(j).location.row)     if rng.value = ""         = 1 200             **if rng.offset(-(i), 0).interior.colorindex = 4 then**                 activesheet.hpagebreaks.add before:=rows(activesheet.hpagebreaks.item(j).location.row - i)                 exit             end if         next     end if next j end sub

i error 1004, excel restarts or freezes. result in specified folder same: ~25 pdfs printed (to loop error arises in second sub), around 10 pdf have size of 5kb, others missing.

enter image description here

does know how solve error or going on?


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more