VBA Print help!!

[Javi]

Hi All.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I am new to VBA and I have been using the recorder to learn as well as this site however certain situations really stop me in my tracks. Your help would be greatly appreciated.
<o> </o>
I have a sheet with data in columns “A:G” I would like to put a button that would print the sheet down to the last row with data.
<o> </o>
The two things that are also needed
1. Print in Landscape
2. Use Row 2 and Row 3 as “Print titles” they need to print on all pages.
<o> </o>
THANKS!!

 

[Javi]

Re: VBA Print help!! Got it!!

Got it!! the below code did the job!!

Thanks repairman615

Sub Print_Button()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Dim ws As Worksheet, cell As Range<o:p></o:p>
Set ws = Sheets("main")<o:p></o:p>
Set cell = Range("g2000").End(xlUp)<o:p></o:p>
Do Until cell.Value <> ""<o:p></o:p>
Set cell = cell.Offset(-1, 0)<o:p></o:p>
Loop<o:p></o:p>
ws.PageSetup.PrintArea = ("A2:" & cell.Address)<o:p></o:p>
‘ws.PrintPreview
[COLOR=black][FONT=Courier]Application.Dialogs(xlDialogPrint).Show<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Times New Roman]End Sub[/FONT][/COLOR][COLOR=black][FONT=Courier]<o:p></o:p>[/FONT][/COLOR]