ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   New Users to Excel (https://www.excelbanter.com/new-users-excel/)
-   -   how to print receipts from excell (https://www.excelbanter.com/new-users-excel/29416-how-print-receipts-excell.html)

wolfmasterr

how to print receipts from excell
 
I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































Kassie

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































wolfmasterr

I already have a sheet made up that is set up to record the dates and
amounts paid.
Amount paid is in cells c4:c14
date s from d4:d14
date to e4:e14
names a4:a14
room number b4:b14

"Kassie" wrote:

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































Kassie

And it is this info that you want to use to populate your planned receipt?
Would you agree to the following setup for your receipt:

D5 = Date issued
B7 = Name of customer
B9 = Amount (Do you want figures, words or both)
B12 = For
B14 = Date from
D14 = Date to

don't give me such a hard time :-)

"wolfmasterr" wrote:

I already have a sheet made up that is set up to record the dates and
amounts paid.
Amount paid is in cells c4:c14
date s from d4:d14
date to e4:e14
names a4:a14
room number b4:b14

"Kassie" wrote:

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































wolfmasterr

yes that would be perfect Kassie, B9 figures only ( currency)

"Kassie" wrote:

And it is this info that you want to use to populate your planned receipt?
Would you agree to the following setup for your receipt:

D5 = Date issued
B7 = Name of customer
B9 = Amount (Do you want figures, words or both)
B12 = For
B14 = Date from
D14 = Date to

don't give me such a hard time :-)

"wolfmasterr" wrote:

I already have a sheet made up that is set up to record the dates and
amounts paid.
Amount paid is in cells c4:c14
date s from d4:d14
date to e4:e14
names a4:a14
room number b4:b14

"Kassie" wrote:

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































Kassie

Hi Wolfmasterr

Not sure whether this post posted, so here goes again.

I take it that you use row 14 only to input the info for your receipt?

Set up your receipt sheet (Sheet 2) as suggested. Use Column A as your
headings. In row 14 on your other sheet, create a field called Number in
cell F14, and insert the next receipt number there.

Now press<Alt<F11, click on Insert| Module, and copy the following code
the

Dim cRoom As Long
Dim pAmount As Integer
Dim dFrom As Date
Dim dTo As Date
Dim cells

Worksheets("Sheet1").Activate
If IsEmpty(Range("A14")) Then
GoTo Errorhandler
End If
rNumber = Range("F14")
cName = Range("A14")
cRoom = Range("B14")
pAmount = Range("C14")
dFrom = Range("D14")
dTo = Range("E14")
Worksheets("Sheet2").Activate
Range("D3") = rNumber
Range("D5") = Now()
Range("B7") = cName
Range("B9") = pAmount
Range("B12") = cRoom
Range("B14") = dFrom
Range("D14") = dTo
Range("A1:D14").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Worksheets("Sheet1").Activate
Range("A14:E14").ClearContents
rNumber = rNumber + 1
Range("F14") = rNumber

Exit Sub
Errorhandler:
MsgBox ("Please complete details before attempting this operation")
Exit Sub
End Sub

I would suggest that you add code to save your work, after every receipt is
printed, to ensure that your numbers are always correct. You run this macro
by pressing <Alt<F8, selecting the macro and clicking on Run. You can also
add a button to the right of, or below the current input range on Sheet 1,
and run the macro from there.

"wolfmasterr" wrote:

yes that would be perfect Kassie, B9 figures only ( currency)

"Kassie" wrote:

And it is this info that you want to use to populate your planned receipt?
Would you agree to the following setup for your receipt:

D5 = Date issued
B7 = Name of customer
B9 = Amount (Do you want figures, words or both)
B12 = For
B14 = Date from
D14 = Date to

don't give me such a hard time :-)

"wolfmasterr" wrote:

I already have a sheet made up that is set up to record the dates and
amounts paid.
Amount paid is in cells c4:c14
date s from d4:d14
date to e4:e14
names a4:a14
room number b4:b14

"Kassie" wrote:

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































wolfmasterr

That is great Kassie thankyou it works perfectly

"Kassie" wrote:

Hi Wolfmasterr

Not sure whether this post posted, so here goes again.

I take it that you use row 14 only to input the info for your receipt?

Set up your receipt sheet (Sheet 2) as suggested. Use Column A as your
headings. In row 14 on your other sheet, create a field called Number in
cell F14, and insert the next receipt number there.

Now press<Alt<F11, click on Insert| Module, and copy the following code
the

Dim cRoom As Long
Dim pAmount As Integer
Dim dFrom As Date
Dim dTo As Date
Dim cells

Worksheets("Sheet1").Activate
If IsEmpty(Range("A14")) Then
GoTo Errorhandler
End If
rNumber = Range("F14")
cName = Range("A14")
cRoom = Range("B14")
pAmount = Range("C14")
dFrom = Range("D14")
dTo = Range("E14")
Worksheets("Sheet2").Activate
Range("D3") = rNumber
Range("D5") = Now()
Range("B7") = cName
Range("B9") = pAmount
Range("B12") = cRoom
Range("B14") = dFrom
Range("D14") = dTo
Range("A1:D14").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Worksheets("Sheet1").Activate
Range("A14:E14").ClearContents
rNumber = rNumber + 1
Range("F14") = rNumber

Exit Sub
Errorhandler:
MsgBox ("Please complete details before attempting this operation")
Exit Sub
End Sub

I would suggest that you add code to save your work, after every receipt is
printed, to ensure that your numbers are always correct. You run this macro
by pressing <Alt<F8, selecting the macro and clicking on Run. You can also
add a button to the right of, or below the current input range on Sheet 1,
and run the macro from there.

"wolfmasterr" wrote:

yes that would be perfect Kassie, B9 figures only ( currency)

"Kassie" wrote:

And it is this info that you want to use to populate your planned receipt?
Would you agree to the following setup for your receipt:

D5 = Date issued
B7 = Name of customer
B9 = Amount (Do you want figures, words or both)
B12 = For
B14 = Date from
D14 = Date to

don't give me such a hard time :-)

"wolfmasterr" wrote:

I already have a sheet made up that is set up to record the dates and
amounts paid.
Amount paid is in cells c4:c14
date s from d4:d14
date to e4:e14
names a4:a14
room number b4:b14

"Kassie" wrote:

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated























































































































Kassie

That was a pleasure, thanks for the response

"wolfmasterr" wrote:

That is great Kassie thankyou it works perfectly

"Kassie" wrote:

Hi Wolfmasterr

Not sure whether this post posted, so here goes again.

I take it that you use row 14 only to input the info for your receipt?

Set up your receipt sheet (Sheet 2) as suggested. Use Column A as your
headings. In row 14 on your other sheet, create a field called Number in
cell F14, and insert the next receipt number there.

Now press<Alt<F11, click on Insert| Module, and copy the following code
the

Dim cRoom As Long
Dim pAmount As Integer
Dim dFrom As Date
Dim dTo As Date
Dim cells

Worksheets("Sheet1").Activate
If IsEmpty(Range("A14")) Then
GoTo Errorhandler
End If
rNumber = Range("F14")
cName = Range("A14")
cRoom = Range("B14")
pAmount = Range("C14")
dFrom = Range("D14")
dTo = Range("E14")
Worksheets("Sheet2").Activate
Range("D3") = rNumber
Range("D5") = Now()
Range("B7") = cName
Range("B9") = pAmount
Range("B12") = cRoom
Range("B14") = dFrom
Range("D14") = dTo
Range("A1:D14").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Worksheets("Sheet1").Activate
Range("A14:E14").ClearContents
rNumber = rNumber + 1
Range("F14") = rNumber

Exit Sub
Errorhandler:
MsgBox ("Please complete details before attempting this operation")
Exit Sub
End Sub

I would suggest that you add code to save your work, after every receipt is
printed, to ensure that your numbers are always correct. You run this macro
by pressing <Alt<F8, selecting the macro and clicking on Run. You can also
add a button to the right of, or below the current input range on Sheet 1,
and run the macro from there.

"wolfmasterr" wrote:

yes that would be perfect Kassie, B9 figures only ( currency)

"Kassie" wrote:

And it is this info that you want to use to populate your planned receipt?
Would you agree to the following setup for your receipt:

D5 = Date issued
B7 = Name of customer
B9 = Amount (Do you want figures, words or both)
B12 = For
B14 = Date from
D14 = Date to

don't give me such a hard time :-)

"wolfmasterr" wrote:

I already have a sheet made up that is set up to record the dates and
amounts paid.
Amount paid is in cells c4:c14
date s from d4:d14
date to e4:e14
names a4:a14
room number b4:b14

"Kassie" wrote:

This can be easily done, but shucks, we'll need some info to work with!
Where does the data come from, which are the "specific location"'s for the
target cells.

You need to design your receipt, and you need to decide how to populate the
fields you want to complete. In other words, are you going to type in the
info, are you going to pull it in from another sheet or location, or what.
How are you going to handle receipt numbering etc.

"wolfmasterr" wrote:

I need to print receipts from excel, but I need the information to be placed
in specific location on the receipt:
Name........
Amount........
Date paid........
Date paid to......
Any help deeply appreciated
























































































































All times are GMT +1. The time now is 02:49 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com