| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| can't print data labels - on screen but don't print out | Charts and Charting in Excel | |||
| print data | Excel Worksheet Functions | |||
| Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) | |||
| how do I print data in a spreadsheet data base to a mailing lable. | Excel Discussion (Misc queries) | |||
| how do I print data in a spreadsheet data base to a mailing lable. | Excel Discussion (Misc queries) | |||
Linear Mode
