excel - exporting a certain worksheet from a workbook to pdf -

-

i amateur programmer learning how program using vba

without further due, question :

i have created listbox (listbox1) i've listed sheets(ws) name in specific workbook. i've created listbox(listbox2) when select sheets name on listbox1, transfer listbox2.

my main objective choosing 1 or more sheets listed in listbox2, , clicking button, i'll manage save selected sheets in 1 pdf file.

here code button used export file in pdf i've written i've managed export them not in 1 pdf file in numerous amount of pdf file.

dim nomtableau() string  each wkbkname in application.workbooks()     if wkbkname.name = choix_poteau.value & "_" & section & "_" & projet & ".xlsx" wkbkname.activate goto lois end if     next  set wbk = workbooks.open(add1 & "\" & me.projet.value & "\" & me.section.value & "\poteaux\" & me.choix_poteau.value & "_" & me.section & "_" & me.projet & ".xlsx")  lois:  = 0 listbox2.listcount - 1 while listbox2.list(i) <> "" dim ws worksheet  each ws in worksheets  if ws.name = listbox2.list(i)  activesheet.exportasfixedformat type:=xltypepdf, filename:= _ "c:\export\resultats__" & listbox2.list(i - counter) & ".pdf", quality:=xlqualitystandard, _ includedocproperties:=true, ignoreprintareas:=false, openafterpublish:= _ true  end if  next wend  next end sub

thanks alot, appreciate help

instead of exporting each sheet individually, select them first , call exportasfixedformat method.

here test code, worked expected:

option explicit  private sub testpdf()          dim integer         dim arrsheets() string         dim strsheets string          'get our sheet names         = 1 3                 strsheets = worksheets(i).name & "," & strsheets         next          'trim trailing comma         strsheets = left(strsheets, len(strsheets) - 1)          arrsheets = split(strsheets, ",")          thisworkbook.sheets(arrsheets).select          activesheet.exportasfixedformat type:=xltypepdf, filename:= _         "c:\users\qzbcjs\documents\useful workbooks\test.pdf", quality:=xlqualitystandard, _         includedocproperties:=true, ignoreprintareas:=false, openafterpublish:= _         true  end sub

i declared array of strings, populated string variable comma-delimited names of worksheets (in case wanted first through third sheets), split comma-delimited string array , used array select of desired sheets , called exportasfixedformat method once.

adapting method code, beginning lois part this:

lois:          dim ws worksheet         dim arrsheets() string         dim strws string          = 0 listbox2.listcount - 1                 while listbox2.list(i) <> ""                          each ws in worksheets                                 if ws.name = listbox2.list(i)                                         strws = ws.name & "," & strws                                 end if                         next                 wend         next          strws = left(strws, len(strws) - 1)          arrsheets = split(strws, ",")          thisworkbook.sheets(arrsheets).select          activesheet.exportasfixedformat type:=xltypepdf, filename:= _         "c:\export\resultats__" & listbox2.list(i - counter) & ".pdf", quality:=xlqualitystandard, _         includedocproperties:=true, ignoreprintareas:=false, openafterpublish:= _         true

Comments

Post a Comment

Popular posts from this blog

html - Firefox flex bug applied to buttons? -

-
i'm trying apply flex button on firefox i'm having problem on chrome doesn't happens. this css: .button { display: inline-flex; align-items: center; } as can see in fiddle, "caret" word moved new line, happens if element <button> tag, <div> works expected. http://codepen.io/anon/pen/xblmgx is firefox bug or there css i'm missing? nevermind, looks "mr firefox" doesn't idea... <button> not implementable (by browsers) in pure css, bit of black box, perspective of css. means don't react in same way e.g. <div> would. this isn't specific flexbox -- e.g. don't render scrollbars if put "overflow:scroll" on button, , don't render table if put "display:table" on it. stepping further, isn't specific <button> . consider <fieldset> , <table> have special rendering behavior: data:text/html,<fieldset style="d...
Read more

html - Missing border-right in select on Firefox -

-
Image
when put select div width , padding-left, options have no border on right. more, happend if select have width 118px , parent have 15px of padding left! have idea, going on? my code: <!doctype html> <html> <head lang="en"> </head> <body> <div style="width: 1000px; padding-left: 15px;"> <select style="width: 118px;"> <option>a</option> <option>b</option> <option>c</option> </select> </div> </body> </html> and result: here plunker: click it happend on firefox on windows. tested on 40.0.2 version -webkit-box-sizing: border-box; -moz-box-sizing: border-box; -ms-box-sizing: border-box; box-sizing: border-box; source: https://stackoverflow.com/a/11390432/4431269 source of problem: https://bugzilla.mozilla.org/show_bug.cgi?id=924068 and use of google ! edit: (source of problem, explained) after rea...
Read more

python - build a suggestions list using fuzzywuzzy -

-
i building suggestion engine database. i'm using fuzzywuzzy module match user input string existing database shown below. if request.method == "get": display_dict = {} user_input = request.get["user_input"] # user input match_dict = {} food_items_obj = food_items.objects.all() # fetch objects table items in food_items_obj : match = fuzz.ratio(user_input.lower(),items.name.lower()) # try match user input existing names match_dict[match] = items.name # put 1 dictionary matched_dict = ordereddict(sorted(match_dict.items(),reverse = true)) # sort dictionary if max(matched_dict.keys()) == 100: # if exact match put in dict , return display_dict[100] = matched_dict[100] else : # if not found try best matching words.. ###########this part need help! ############# k,v in matched_dict.items(): if user_input in v : display_dict[k]...
Read more