print with data
 

Dear all,

I've a worksheet

A B C D
Date 3.1.03 David
Name 4.1.03 Tom
6.1.03 Mary
8.1.03 Roy

The printing area is A1:B2
B1=C1 and B2=D1 for the first printout
B1=C2 and B2=D2 for the second printout
and so on.....

How can I do this?

thanks

ims

print with data
 

This procedure should help:

Sub Output()
Dim rw As Long
'set row to first row of data
rw = 1
Do Until Cells(rw, "C") = ""
Range("B1").Calue = Cells(rw, "C")
Range("B2").Calue = Cells(rw, "D")
ActiveSheet.Print
rw = rw + 1 ' next row
Loop
End Sub

Patrick Molloy
Microsoft Excel MVP


-----Original Message-----
Dear all,

I've a worksheet

A B
C D
Date 3.1.03 David
Name 4.1.03 Tom
6.1.03 Mary
8.1.03 Roy

The printing area is A1:B2
B1=C1 and B2=D1 for the first printout
B1=C2 and B2=D2 for the second printout
and so on.....

How can I do this?

thanks

ims



.

print with data
 

This macro should do the trick

Sub PrintData()
Dim Counter As Integer

Application.ScreenUpdating = False

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$2"

Do
Range("B1") = Range("C1").Offset(Counter, 0)
Range("B2") = Range("C1").Offset(Counter, 1)
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Counter = Counter + 1
Loop Until ActiveCell.Offset(X, 0) = ""

Application.ScreenUpdating = True

End Sub


DavidP

On Mon, 10 Nov 2003 15:31:39 +0800, "ims"
wrote:

Dear all,

I've a worksheet

A B C D
Date 3.1.03 David
Name 4.1.03 Tom
6.1.03 Mary
8.1.03 Roy

The printing area is A1:B2
B1=C1 and B2=D1 for the first printout
B1=C2 and B2=D2 for the second printout
and so on.....

How can I do this?

thanks

ims

print with data
 

Dear Patrick,

line ActiveSheet.Print got error when executing, dunno why

ims



"Patrick Molloy"
...
This procedure should help:

Sub Output()
Dim rw As Long
'set row to first row of data
rw = 1
Do Until Cells(rw, "C") = ""
Range("B1").Calue = Cells(rw, "C")
Range("B2").Calue = Cells(rw, "D")
ActiveSheet.Print
rw = rw + 1 ' next row
Loop
End Sub

Patrick Molloy
Microsoft Excel MVP


-----Original Message-----
Dear all,

I've a worksheet

A B
C D
Date 3.1.03 David
Name 4.1.03 Tom
6.1.03 Mary
8.1.03 Roy

The printing area is A1:B2
B1=C1 and B2=D1 for the first printout
B1=C2 and B2=D2 for the second printout
and so on.....

How can I do this?

thanks

ims



.

print with data
 

It works, thanks a lot.

ims
'

"DavidP"
...
This macro should do the trick

Sub PrintData()
Dim Counter As Integer

Application.ScreenUpdating = False

ActiveSheet.PageSetup.PrintArea = "$A$1:$B$2"

Do
Range("B1") = Range("C1").Offset(Counter, 0)
Range("B2") = Range("C1").Offset(Counter, 1)
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Counter = Counter + 1
Loop Until ActiveCell.Offset(X, 0) = ""

Application.ScreenUpdating = True

End Sub


DavidP

On Mon, 10 Nov 2003 15:31:39 +0800, "ims"
wrote:

Dear all,

I've a worksheet

A B C D
Date 3.1.03 David
Name 4.1.03 Tom
6.1.03 Mary
8.1.03 Roy

The printing area is A1:B2
B1=C1 and B2=D1 for the first printout
B1=C2 and B2=D2 for the second printout
and so on.....

How can I do this?

thanks

ims