Print just the current page

[Ajw43022]

Is there VBA code to print out just the current page -- the page where I currently have the cursor? Note: I don't want to modify the whole print area, or anything like that. Thanks!

 

[jbeaucaire]

ActiveSheet.PrintOut copies:=1

 

[Ajw43022]

I think that'll print out the entire sheet. I just want the current page of the sheet I'm on. Unless I'm mistaken. Sorry I wasn't clear before. thanks.

 

[VoG]

If you mean what is visible

Sub atest()
ActiveWindow.VisibleRange.PrintOut
End Sub

 

[Ajw43022]

Printing just what is visible would be more helpful, but I'll try to clarify specifically what I would like. I'm working on a sheet that has many many pages in its print area (set w page breaks). I am working through the sheet, one page at a time. Once I've checked a page, I want to print it out. But this process is just a *little* bit time-wasting, because each time I have to bring up the print dialog and then manually enter in the current page I'm on to print. I'd like instead to program a macro that automatically prints just the page that I'm on -- that the cursor is currently on. Is that possible? thanks.

 

[Ajw43022]

I was able to find the solution with some additional googling. If anyone is interested:
http://www.officekb.com/Uwe/Forum.aspx/excel-prog/12811/pagenumber-of-active-cell-vba