[AccessD] Print Receipt with embedded escape codes

 This isn't a 100% of what you are asking for,
 but a function using some of these ideas could
 be written to change the font and XY location
 to place data on the form.  Maybe the ESC codes
 could be loaded into a table to control the
 printer, the same way the XY coordinates are
 used in the following example.

 = = = = = = = = = = = = = = = = = = = = = = = = = = = =

    ' ********************************************
    ' Loop through the records.
    '
    For lLoop = 1 To lDataKnt

    ' ********************************************
    ' @Data and @Table Control sTable
    '
    sData = ""
    sData = "=" & Chr$(34) & Trim$([rsData]![zData] & " ") & Chr$(34)
    sReportName = ""
    sReportName = zzReport.Name

    Set RptCtrl = CreateReportControl(zzReport.Name, acTextBox, acDetail, ,
sData)

    dsTop = CDbl([rsData]![LineY])
    dsLeft = CDbl([rsData]![ColumnAdj])
    dsWidth = CDbl([rsData]![zWidth])

    RptCtrl.Top = ((dsTop * (1 / 6))) * 1440
    RptCtrl.Left = ((dsLeft * (1 / 10))) * 1440
    RptCtrl.Width = ((dsWidth * (1 / 10))) * 1440
    RptCtrl.Height = 0.166667 * 1440

    RptCtrl.FontName = "Courier New"

    RptCtrl.FontSize = 12
    RptCtrl.ForeColor = 0
    RptCtrl.TextAlign = 1

    RptCtrl.Name = "txt" & Trim$([rsData]![FieldID] & " ")

    Set RptCtrl = Nothing

    rsData.MoveNext

    Next lLoop

    DoCmd.PrintOut acPages, 1, 1, acHigh, 1

    DoCmd.Close acReport, sReportName, acSaveNo


 = = = = = = = = = = = = = = = = = = = = = = = = = = = =



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mark Brown
Sent: Thursday, April 24, 2008 12:10 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Print Receipt with embedded escape codes


I need to have the ability to print a receipt and then validate (print
payment date and time) on check and original bill. The printer is an Ithaca
receipt printer. The receipt needs to print upon completion of input of the
payment information and the validation will be a command button. The printer
needs to have Escape characters sent to it to control the printer for print
size, open for validation, cut receipt, etc. Any help (code examples) would
be appreciated.


Mark H Brown
Computer Resolutions Inc.
comres at rpa.net


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com