Create and print restaurant bill

[dzlee]

hallo autoit community
i ask how to create bill temple and insert data to it then print it
thanks

[JLogan3o13]

Hi, dzlee. There are many ways to accomplish what you're after. For simplicity, I would suggest the following:

• In Excel, find the receipt template that best fits your needs and save it locally
• Study the Excel functions in the help file, which will easily allow you to write to the template.

Try these suggestions out, and post your code if you get stuck; we'll be happy to assist.

[mLipok]

You can do it also with RTF or PDF.

For RTF look in helpfile.

For PDF look in Wiki

 

mLipok

 

[Melba23]

dzlee,

Can you explain a bit more what exactly you are trying to do.  For example, are you looking to set up your own billing system for a restaurant? The more information we have the better we can advise you.

M23

Edited June 16, 2015 by Melba23
Typo

[dzlee]

  On 6/16/2015 at 2:54 PM, Melba23 said:

are you looking to set up your own billing system for a restaurant?

​exactly

i find this bill template :
http://topdocuments.com/wp-content/uploads/2015/02/Restaurant-Bill-Format-in-Excel-Free-Download.xlsx
but , have a problem to insert data on it
an example script may help

[Melba23]

dzlee,

have a problem to insert data on it

What have you tried that has not worked?

M23

[dmob]

I used Martin's PrintMg UDF and DLL to print till slips, and it works beautifully

[jchd]

Wich printer do you plan to use and how do you collect and store billing information?

Since you consider printing now, you must have something already working. Can you show us the code, even to an MVP in PM?

[dzlee]

any suggestions

#include <Excel.au3>
#include <Date.au3>

$bill = _Excel_Open(False)
$oWorkbook = _Excel_BookOpen($bill, @ScriptDir & "\test.xlsx",True)
_Excel_RangeWrite($oWorkbook, Default, Random(1,100,1),"B6")
_Excel_RangeWrite($oWorkbook, Default, "Date:"&_NowDate(),"D6")
;-
_Excel_RangeWrite($oWorkbook, Default, "1","A9")
_Excel_RangeWrite($oWorkbook, Default, "pizza","B9")
_Excel_RangeWrite($oWorkbook, Default, "2","C9")
_Excel_RangeWrite($oWorkbook, Default, "40","D9")
_Excel_RangeWrite($oWorkbook, Default, "80","E9")
_Excel_RangeInsert($oWorkbook.Activesheet, "A10:E10", $xlShiftDown)
_Excel_BookSaveAs($oWorkbook,@ScriptDir & "\test1.xlsx", Default, True)
_Excel_Print($bill, "A1:E25")
_Excel_Close($bill)

 

Edited June 16, 2015 by dzlee

[dmob]

Here's a small till-slip printer example using said DLL...

expandcollapse popup

#include "..\printMGv2.68.au3"

Print()

Func Print()
    Local $pErr
    Local $Prn = _PrintDllStart($pErr)
    If $pErr Then
        MsgBox(0, "_PrintDllStart Error...", "Printer library cannot be initialised!" & @CRLF & @CRLF & _
                "Check that the 'printmg.dll' file is present in the same folder as the Cashup program.")
        Return 0
    EndIf

    Local $sPrinter = "Till_Printer_Name"
    Local $selPrn = _PrintSelectPrinter($Prn,$sPrinter )
    If $selPrn = -1 Then
        MsgBox(0, "_PrintSelectPrinter Error...", "Printer " & $sPrinter & " cannot be selected!")
        Return 0
    EndIf

    _PrintSetDocTitle($Prn, "Cashup Till Slip")

    ; start printing operation
    _PrintStartPrint($Prn)
    If @error Then
        MsgBox(0, "_PrintStartPrint Error...", "Printer cannot be started!", 0, $MainWin)
        Return 0
    EndIf

    ;_PrintSetFont($Prn,$FontName,$FontSize,$FontCol=0,$Fontstyle = '')
    ;To check that the text will fit a space use _PrintGetTextHeight and _PrintGetTextWidth
    ;_PrintText($hDll,$sText,$ix=-1,$iy=-1,$iAngle=0)

    _PrintText($Prn, "***************************************", 10, 20)
    _PrintText($Prn, "*                                     *", 10, 60)
    _PrintText($Prn, "*     Eat-All-You_Can Restaurant      *", 10, 100)
    _PrintText($Prn, "*           Address Line 1            *", 10, 140)
    _PrintText($Prn, "*           Address Line 2            *", 10, 180)
    _PrintText($Prn, "*           Address Line 3            *", 10, 220)
    _PrintText($Prn, "*         Tel: 555 666 7777           *", 10, 260)
    _PrintText($Prn, "*         Fax: 555 666 7070           *", 10, 300)
    _PrintText($Prn, "*     email: food@eatright.com        *", 10, 340)
    _PrintText($Prn, "*                                     *", 10, 380)
    _PrintText($Prn, "*    Prompt, Quality Service          *", 10, 420)
    _PrintText($Prn, "***************************************", 10, 460)
    _PrintText($Prn, "                                       ", 10, 500)
    _PrintText($Prn, "Tx No: " & $pTx & "  " & $tD & "  " & $tT, 10, 540)
    _PrintText($Prn, "---------------------------------------", 10, 580)
    _PrintText($Prn, "Item                         Qty  Price", 10, 620)
    _PrintText($Prn, "---------------------------------------", 10, 660)
    _PrintText($Prn, "                                       ", 10, 700)
    ; print items here
    ;$pPos += 40
    _PrintText($Prn, _StringRepeat(" ", 32) & "-------", 10, $pPos)
    _PrintText($Prn, _StringRepeat(" ", 21) & "TOTAL    " & $sStr, 10, $pPos + 40)
    _PrintText($Prn, _StringRepeat(" ", 32) & "-------", 10, $pPos + 80)
    _PrintText($Prn, "***************************************", 10, $pPos + 160)
    _PrintText($Prn, "*                                     *", 10, $pPos + 200)
    _PrintText($Prn, "*    Thank you for your patronage     *", 10, $pPos + 240)
    _PrintText($Prn, "*    ----------------------------     *", 10, $pPos + 280)
    _PrintText($Prn, "*        Have a pleasant day.         *", 10, $pPos + 320)
    _PrintText($Prn, "*                                     *", 10, $pPos + 360)
    _PrintText($Prn, "***************************************", 10, $pPos + 400)
    _PrintText($Prn, _StringRepeat(" ", 32), 10, $pPos + 440)

    _PrintEndPrint($Prn)
EndFunc

... and that's it

[jchd]

Sorry, disregard.

Edited June 16, 2015 by jchd

[Jfish]

Your code works for me, it prints out fine ... but the test.xlsx book must exist first.  What error are you getting?

Try this to see if you get an error (and add some error checking in general):

$oWorkbook = _Excel_BookOpen($bill, @ScriptDir & "\test.xlsx")
if @error then MsgBox("","error",@error)

 

[dzlee]

everything fine now , thanks
[solved]

[Noodles]

@dmob This example is awesome, thank you! 

Now with the printMG I was able to set up a simple little script that allows me to print receipts while on the go with an 80 mm mobile bluetooth printer. The only problem I can't seem to get a handle on is manipulating the output.

As with most line printers, there are ESC/POS commands that allow for typical events, like opening a cash drawer, print upside-down and the like.

In my case, I'd like to change the print mode, so I can print with double-height, double-width or both.

According to the printer reference, I need to send the following command: ESC ! n, where n = 16 for double-height, 32 for double-width, etc.

Seems easy enough, but I struggle with sending the command. I've tried the following examples with quotes, without quotes, all to no avail.

_PrintText( $Prn Chr( 27) & Chr( 33) & 16 )

_PrintText( $Prn {ESC} & {!} & 16 )

send( Chr( 27) & Chr( 33) & 16 )

I'd be utterly grateful for any possible help or hint.

[Noodles]

Did really nobody ever run into this issue? I'm still lost as to how to solve it... 

[Noodles]

One more shameless bump while I get my white flag ready.

[InunoTaishou]

Try making a new topic for you issue instead of bumping a thread that was resolved 2 years ago. You will get much better results.