macro print area
 

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

Put into action got thru to printer went by a error message printed Column
(A) thru to 100 not stopping at (B) count. After print showed runtime error
1004 unable to set print area of the page set up type. Your understanding of
what is wanted is right. Still trying to figure this one. Page set up. print
area is yellowed in vba
stumped took out all of my code only have this in use. Do we need some of
what I had?
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then



with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

D made a difference all right. Don't know what is happening. Prints twice.
first run 2 sheets go to 100 next set 2 sheets stops as it should. last row
column (B) Ain't we got fun?

"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

Not too sure what your issue might be. It works at my end...
Change printOut to PrintPreview while you are debugging to save paper. Try
stepping through the code one line at a time checking print settings as you
go...
--
HTH...

Jim Thomlinson


"Curt" wrote:

D made a difference all right. Don't know what is happening. Prints twice.
first run 2 sheets go to 100 next set 2 sheets stops as it should. last row
column (B) Ain't we got fun?

"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

in working thru this I have noticed that when procedure runs it does show the
printer screen twice. As if the procedure is repeating . Is this possible?
Thanks


"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

have break set on
.pagesetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
printer runs with this break in place. Seems that it should not start this
soon. chg to print preview did not stop printer. So I think printer is being
triggered by this line?
Any ideas?
Thanks

"Jim Thomlinson" wrote:

Not too sure what your issue might be. It works at my end...
Change printOut to PrintPreview while you are debugging to save paper. Try
stepping through the code one line at a time checking print settings as you
go...
--
HTH...

Jim Thomlinson


"Curt" wrote:

D made a difference all right. Don't know what is happening. Prints twice.
first run 2 sheets go to 100 next set 2 sheets stops as it should. last row
column (B) Ain't we got fun?

"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

Don't know what it is but reduceing to this it works.

With Sheets("Check_In")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.pagesetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
End With

so with your help I got it
Thanks much Jim


"Jim Thomlinson" wrote:

Not too sure what your issue might be. It works at my end...
Change printOut to PrintPreview while you are debugging to save paper. Try
stepping through the code one line at a time checking print settings as you
go...
--
HTH...

Jim Thomlinson


"Curt" wrote:

D made a difference all right. Don't know what is happening. Prints twice.
first run 2 sheets go to 100 next set 2 sheets stops as it should. last row
column (B) Ain't we got fun?

"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

Jim I changed
..PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).(Row to cell)
This got print area where I wanted it
Thanks you help really appreciated.

"Jim Thomlinson" wrote:

Not too sure what your issue might be. It works at my end...
Change printOut to PrintPreview while you are debugging to save paper. Try
stepping through the code one line at a time checking print settings as you
go...
--
HTH...

Jim Thomlinson


"Curt" wrote:

D made a difference all right. Don't know what is happening. Prints twice.
first run 2 sheets go to 100 next set 2 sheets stops as it should. last row
column (B) Ain't we got fun?

"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select

macro print area
 

having confusion with this

Sheets("Announcer").Select
Columns("F").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.MergeCells = False
End With
Range("G2").Select
Sheets("Announcer").Select
With Selection
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row
End With
With ActiveSheet.pagesetup
ever so often it comes up not doing .page setup tried moving withs to
correct etc
got print ok for some reason doesn't want to count "B". still working on it.
Thanks a long way from where I started
Thanks

"Curt" wrote:

D made a difference all right. Don't know what is happening. Prints twice.
first run 2 sheets go to 100 next set 2 sheets stops as it should. last row
column (B) Ain't we got fun?

"Jim Thomlinson" wrote:

SorryI missed the "D". Should be...

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with
--
HTH...

Jim Thomlinson


"Curt" wrote:

found one error was a colon after a2 printed thru not useing b count as stop
Thanks

"Jim Thomlinson" wrote:

I am a little unclear what you want but here goes. You want to print Cells
A2:D?? where ?? is the last row in column B with a value in it... If so then

with Sheets("Check_In")
.PageSetup.PrintArea = "A2:" & Cells(Rows.Count, "B").End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
end with

--
HTH...

Jim Thomlinson


"Curt" wrote:

Have entries in column (A) want to stop column (A) at last row of entries in
column (B) looking thru site was unable to find an answer. site got me this
far. do need the column (A) entries. This is code I am useing.
Thanks To All

Sheets("Check_In").Select
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("A2:D2").Resize(LastRow - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("F19").Select