Create a Macro to Print pages which contain content

N

Nerodia

I am new to writing macros and I need assistance with writing a macro t
select the pages which contain data. I have a monetary inpu
spreadsheet, which can range from 1 line of data to 500. I would lik
to automate the print function to only select the pages which have dat
to print.

I am guessing that I will need to define a column, for example:

Dim AccountNumber As String

I will need to write an If, then statement to look for data in the cell
and if there is data, then the page would be printed. I'm just not sur
how to go forward. Any assistance would be apprecieted. Let me know i
more information is needed
 
C

Claus Busch

Hi,

Am Thu, 24 Oct 2013 17:54:42 +0100 schrieb Nerodia:
I am new to writing macros and I need assistance with writing a macro to
select the pages which contain data. I have a monetary input
spreadsheet, which can range from 1 line of data to 500. I would like
to automate the print function to only select the pages which have data
to print.

try:
Sub Test()
Dim LRow As Long
Dim LCol As Long

With Sheets("Sheet1")
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
.PageSetup.PrintArea = _
Range(Cells(1, 1), Cells(LRow, LCol)).Address
.PrintOut Copies:=1
End With
End Sub


Regards
Claus B.
 
C

Claus Busch

Hi again,

Am Thu, 24 Oct 2013 20:22:59 +0200 schrieb Claus Busch:

better try:

Sub Test()
Dim LRow As Long
Dim LCol As Long

With Sheets("Sheet1")
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
If LRow > 1 And LCol > 1 Then
.PageSetup.PrintArea = _
Range(Cells(1, 1), Cells(LRow, LCol)).Address
.PrintOut Copies:=1
End If
End With
End Sub


Regards
Claus B.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top