how to print receipts from excell

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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.
 
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
 
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 :-)
 
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
there:

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.
 
That is great Kassie thankyou it works perfectly

Kassie said:
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
there:

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.
Click to expand...
 
Back
Top