excel - Selecting first row/last row only from saved file to print -


i've completed code save data, export pdf, jazz. wondering if there way incorporate [excel sheet].pagesetup.printtitlerows = "$[firstrow]$[lastrow]"; program. i'm not sure if should manipulated in way. first row holds units , report saves data in each row, however, want last row of data (new stuff), unit row (row 1) well. here's code, not entirely sure put (proably near end):

sub save_history()        'copies data calculation page sheets("simple calculation").select      range("a2:i2").select          selection.copy              sheets("media history").select                  range("a" & rows.count).end(xlup).offset(1).select                      selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=false application.displayalerts = false`    ' check year folder , create if needed if len(dir("c:blah\" & year(date), vbdirectory)) = 0     mkdir "c:blah\" & year(date) end if    ' check month folder , create if needed if len(dir("c:blah\" & year(date) & "\" & monthname(month(date), false), vbdirectory)) = 0     mkdir "c:blah\" & year(date) & "\" & monthname(month(date), false) end if    ' check day folder , create if needed if len(dir("c:blah\" & year(date) & "\" & monthname(month(date), false) & "\" & day(date), vbdirectory)) = 0     mkdir "c:blah\" & year(date) & "\" & monthname(month(date), false) & "\" & day(date) end if   strfilepath = "c:blah\" & year(date) & "\" & monthname(month(date), false) & "\" & _               format(date, "mm.dd.yy") & "_" & format(time(), "hh.mm.ssam/pm") & ".pdf"  activesheet.exportasfixedformat type:=x1typepdf, filename:=strfilepath, _                                 quality:=x1qualitystandard, includedocproperties:=true, _                                 ignoreprintareas:=false, openafterpublish:=true _   application.displayalerts = true   ' popup message msgbox "file saved as:" & vbnewline & strfilepath  end sub

here's worked (finally) copied/pasted again.

sub save_history()

sheets("simple calculation").select

range("a2:i2").select      selection.copy          sheets("new media report").select              range("a1").end(xlup).offset(1).select                  selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=false

'copies data calculation page sheets("simple calculation").select

range("a2:i2").select      selection.copy          sheets("media history").select              range("a" & rows.count).end(xlup).offset(1).select                  selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=false application.displayalerts = false   ' check year folder , create if needed

if len(dir("c:blah\" & year(date), vbdirectory)) = 0 then mkdir "c:blah\" & year(date) end if

' check month folder , create if needed if len(dir("c:blah\" & year(date) & "\" & monthname(month(date), false), vbdirectory)) = 0 mkdir "c:blah\" & year(date) & "\" & monthname(month(date), false) end if

' check day folder , create if needed if len(dir("c:blah\" & year(date) & "\" & monthname(month(date), false) & "\" & day(date), vbdirectory)) = 0 mkdir "c:blah\" & year(date) & "\" & monthname(month(date), false) & "\" & day(date) end if

strfilepath = "c:blah\" & year(date) & "\" & monthname(month(date), false) & "\" & _ format(date, "mm.dd.yy") & "_" & format(time(), "hh.mm.ssam/pm") & ".pdf"

activesheet.exportasfixedformat type:=x1typepdf, filename:=strfilepath, _ quality:=x1qualitystandard, includedocproperties:=true, _ ignoreprintareas:=false, openafterpublish:=true _

application.displayalerts = true

' popup message msgbox "file saved as:" & vbnewline & strfilepath

end sub


Comments

Post a Comment

Popular posts from this blog

javascript - Bootstrap Popover: iOS Safari strange behaviour -

i looking through twitter bootstrap documentation, , i'm interested in implementing dismissible popover when button clicked. here example bootstrap's docs: http://getbootstrap.com/javascript/#dismiss-on-next-click when press "dismissible popover" button os x safari browser works fine. when access same link above ios safari, button not work. is, popover not dismissed on click. why button not working ios safari? the example linked using data-trigger="focus" attribute. try changing data-trigger="click" . <a tabindex="0" class="btn btn-lg btn-danger" role="button" data-toggle="popover" data-trigger="click" title="dismissible popover" data-content="and here's amazing content. it's engaging. right?">dismissible popover</a>
Read more

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

session - Logging Out Using PHP -

i have seen other programs regarding can't seem make work. doing wrong? want achieve after user logged out, going previous pages become restricted. i have 3 php files: 1. sample.php - main page username , password filled in 2. successful.php - user's page after logging in 3. logout.php - destorys session hinder user access pages after logging out sample.php </html> <form action="" method="post"> <table> <tr> <td>username:</td> <td>password:</td> </tr> <tr> <td><input type="text" name="username"></td> <td><input type="password" name="password"></td> </tr> <tr> <td><input type="submit" value="submit" name="submit"></td> </tr> </table> </form> </html> <?php $servername = "localhost"; $username = ...
Read more