excel - VBA Printing in Groups of 4 Rows -


i have pretty specific spreadsheet contains wages/bonuses of employees. each employee has 4 rows (salary / bonus / salary % delta / bonus % of salary). problem i'm having managers have employees cutoff if goes multiple pages switched fit 1 x 1 condensed. there way have macro print in groups of 4 rows? or perhaps make prints 4 rows each employee on same page (salary/bonus/salary % delta/bonus % of salary) thank in advance!

private sub commandbutton1_click() dim sel_manager string 'specify headers repeated @ top activesheet.pagesetup         .printtitlerows = "$5:$10"         .printtitlecolumns = "$b:$m"         .orientation = xllandscape         .zoom = false         .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("b10", range("m10").end(xldown)).autofilter field:=1, criteria1:=sel_manager  'select range printed , specify manager in filename activesheet.range("b10", range("m10").end(xldown)).select  selection.exportasfixedformat type:=xltypepdf, filename:= _ sel_manager + ".pdf", quality:=xlqualitystandard, _ includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=true    activesheet.showalldata  end sub

i think have better solution you. can split print area on pages, every x rows. take @ example, every page have 100 rows:

lastrow = sheets("raport").range("b" & rows.count).end(xlup).row sheets("raport").pagesetup.printarea = "$a$1:$g$" & lastrow  t = 4 ' number of title rows r = 96 ' number of rows on 1 page (without title rows) npages = application.roundup((lastrow - 4) / 96, 0) 'npages gives number of pages.  sheets("raport").resetallpagebreaks sheets("raport").vpagebreaks(1).dragoff direction:=xltoright, regionindex:=1 ' may not necessary data  on error resume next if npages > 1     = 1 npages - 1         activesheet.hpagebreaks.add before:=activesheet.range("a" & 5 + * 96)         set activesheet.hpagebreaks(i).location = range("a" & 5 + * 96)     next else     activesheet.hpagebreaks(1).dragoff direction:=xldown, regionindex:=1 end if on error goto 0

Comments

Post a Comment

Popular posts from this blog

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

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl...
Read more

Laravel mail error `Swift_TransportException in StreamBuffer.php line 269: Connection could not be established with host smtp.gmail.com [ #0]` -

i developing website contact-us page guest users can send me email using gmail . anytime try send mail using contact-us form, error swift_transportexception in streambuffer.php line 269: connection not established host smtp.gmail.com [ #0] this mail.php return [ 'driver' => env('mail_driver', 'smtp'), 'host' => env('mail_host', 'smtp.gmail.com'), 'port' => 587, 'from' => ['address' => '', 'name' => ''], 'encryption' => env('mail_encryption', 'tls'), 'username' => env('mail_username'), 'password' => env(mail_password), 'sendmail' => '/usr/sbin/sendmail -bs', 'pretend' => env('mail_pretend', false), ]; this .env mail_driver=smtp mail_host=smtp.gmail.com mail_port=587 mail_username=afecjaped@gmail.com mail_password=********...
Read more

c# SetCompatibleTextRenderingDefault must be called before the first -

i tried search exception couldn't find solution on case i'am using code below invoke .net application : assembly assem = assembly.load(data); methodinfo method = assem.entrypoint; var o = activator.createinstance(method.declaringtype); method.invoke(o, null); the application invoked has form , in entrypoint of application : [stathread] static void main() { application.enablevisualstyles(); application.setcompatibletextrenderingdefault(false); //exception application.run(new form1()); } setcompatibletextrenderingdefault must called before first iwin32window object created in application. edit : assembly = assembly.load(data); methodinfo method = a.gettype().getmethod("start"); var o = activator.createinstance(method.declaringtype); method.invoke(o, null); you should create new method skips initialization...
Read more