<div>
<pre><code id="code-20-38775429-1">sub PortPrint
         
                  ActiveSheet.PageSetup.Orientation = xlPortrait
                    ActiveSheet.PageSetup.PrintArea = &quot;$B5:AE102&quot;
                    ActiveSheet.PrintOut
end sub</code></pre>
<br />

<pre><code id="code-20-38775429-2">sub landscapePrint
                    ActiveSheet.PageSetup.Orientation = xlLandscape
                    ActiveSheet.PageSetup.PrintArea = &quot;$B5:AE102&quot;
                    ActiveSheet.PrintOut

end sub</code></pre>
<br />
Assign these macros to buttons as preferred
</div>


sub PortPrint
         
                  ActiveSheet.PageSetup.Orientation = xlPortrait
                    ActiveSheet.PageSetup.PrintArea = "$B5:AE102"
                    ActiveSheet.PrintOut
end sub


sub landscapePrint
                    ActiveSheet.PageSetup.Orientation = xlLandscape
                    ActiveSheet.PageSetup.PrintArea = "$B5:AE102"
                    ActiveSheet.PrintOut

end sub


Assign these macros to buttons as preferred

<div>
this works great however i notice that it prints automatically. &nbsp;Is there a way to have the print setup box open up where the user can select a printer and then print?
</div>


this works great however i notice that it prints automatically.  Is there a way to have the print setup box open up where the user can select a printer and then print?

<div>
works great! thanks your awesome!
</div>


<div>
<div class="content wysiwyg-content">
I have a set range<br />
B5:AE102 &nbsp;Need a button to print it in portrait and another button to print in Landscape<br />
<br />
how do i do this with VBA?
</div>
</div>


I have a set range
B5:AE102  Need a button to print it in portrait and another button to print in Landscape

how do i do this with VBA?

Print fixed range in portrait/Landscape

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.