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
Post a Comment