Excel ignoring VBA Print Settings -


for reason excel ignoring "fit 1 1" rule here. tried adjust zoom doesn't seem work. ideas utmost welcome! thank you!

private sub commandbutton1_click() dim sel_manager string 'specify headers repeated @ top activesheet.pagesetup         .printtitlerows = "$5:$9"         .printtitlecolumns = "$b:$m"         .orientation = xllandscape         .zoom = 70         .fittopageswide = 1         .fittopagestall = 1 end  'manager selection through simple inputbox  sel_manager = combobox1 'insert autofilter worksheet cells.select selection.autofilter 'select manager defined in inputbox activesheet.range("b14", range("m14").end(xldown)).autofilter field:=1, criteria1:=sel_manager  'select range printed , specify manager in filename activesheet.range("b14", range("m14").end(xldown)).select  selection.exportasfixedformat type:=xltypepdf, filename:= _ sel_manager + ".pdf", quality:=xlqualitystandard, _ includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=true    activesheet.showalldata  end sub 

fitting page , zooming excludes each other. try set:

.zoom = false 

Comments

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

javascript - jQuery UI Splitter/Resizable for unlimited amount of columns -

javascript - IE9 error '$'is not defined -