I have a form thta data is entered daily. Is there a way that I can print the
form out. Then as data is entered, I insert the printed form in the printer
and only print the new data on the form.
--
AOU

I am not sure that falls under Excel Programming.

"AOU" wrote:

I have a form thta data is entered daily. Is there a way that I can print the
form out. Then as data is entered, I insert the printed form in the printer
and only print the new data on the form.
--
AOU

It is possible with code but why not print only the last page of the sheet
with code

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I have a form thta data is entered daily. Is there a way that I can print
the
form out. Then as data is entered, I insert the printed form in the
printer
and only print the new data on the form.
--
AOU

Remove one ActiveSheet

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
.PrintOut From:=TotPages, To:=TotPages
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message
...
It is possible with code but why not print only the last page of the sheet
with code

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I have a form thta data is entered daily. Is there a way that I can print
the
form out. Then as data is entered, I insert the printed form in the
printer
and only print the new data on the form.
--
AOU

I was after the ability to select the last row with data and print that rows
data only.
--
AOU


"Ron de Bruin" wrote:

Remove one ActiveSheet

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
.PrintOut From:=TotPages, To:=TotPages
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message
...
It is possible with code but why not print only the last page of the sheet
with code

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I have a form thta data is entered daily. Is there a way that I can print
the
form out. Then as data is entered, I insert the printed form in the
printer
and only print the new data on the form.
--
AOU

For the last row try this

Sub test()
Range("A" & LastRow(ActiveSheet)).EntireRow.PrintOut
End Sub


Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function


--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I was after the ability to select the last row with data and print that
rows
data only.
--
AOU


"Ron de Bruin" wrote:

Remove one ActiveSheet

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
.PrintOut From:=TotPages, To:=TotPages
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message
...
It is possible with code but why not print only the last page of the
sheet
with code

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I have a form thta data is entered daily. Is there a way that I can
print
the
form out. Then as data is entered, I insert the printed form in the
printer
and only print the new data on the form.
--
AOU

Thanks very much Ron I shall try it and let you know how I get on with it.
--
AOU


"Ron de Bruin" wrote:

For the last row try this

Sub test()
Range("A" & LastRow(ActiveSheet)).EntireRow.PrintOut
End Sub


Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function


--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I was after the ability to select the last row with data and print that
rows
data only.
--
AOU


"Ron de Bruin" wrote:

Remove one ActiveSheet

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
.PrintOut From:=TotPages, To:=TotPages
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message
...
It is possible with code but why not print only the last page of the
sheet
with code

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl



"AOU" wrote in message
...
I have a form thta data is entered daily. Is there a way that I can
print
the
form out. Then as data is entered, I insert the printed form in the
printer
and only print the new data on the form.
--
AOU