OPOS使用ASP.NET打印

时间:2014-05-06 05:56:11

标签: c# asp.net thermal-printer opos posiflex

我开发了一个Restaurant Billing Web App(非桌面应用程序,因为要求是在浏览器中运行的Web应用程序)使用ASP.NET Web Forms C# 4.0。现在新的要求是POS热敏打印机收据打印。我对POS很新,但不知怎的,我设法构建并运行了一个示例Windows窗体应用程序,使用c#在POSIFLEX PP6800 Thermal Receipt Printer上打印。

问题是我无法在Localhost网站上使用相同的代码进行打印。我使用的是OPOS CCOOposForDotNetAssemblies-1_13_000

我的问题是:

  1. 是否可以在LocalHost上的OPOS上打印?
  2. 是否可以通过互联网网站在OPOS上打印?
  3. 如果是,那么我该怎么办?我做错了什么?
  4. 我正在使用的代码是:

    using POS.Devices;
    private OPOSPOSPrinter Printer = null;
    protected void Button1_Click(object sender, EventArgs e)
    {
        Printer = new OPOSPOSPrinterClass();
    
        // Open the printer.
        Printer.Open("PosPrinter");
        Printer.ClaimDevice(1000);
        Printer.AsyncMode = true;
        Printer.DeviceEnabled = true;
        Printer.ResultCode;
        Printer.PrintNormal(2, "\x1B|cA\x1B|2CHeading\x1B|1C\n"+DateTime.Now.ToString("D")+"\n\n" );
        Printer.CutPaper(1);
        Printer.Close();
     }
    

    有趣的是没有错误,但是我听到Beeps直到超时,然后打印机在一行中打印一些点和字符而没有别的。 Windows窗体中没有发生这种情况。提前谢谢。

2 个答案:

答案 0 :(得分:0)

Public Sub GiftReceipt()

尝试

    Dim displayString As String

     Dim ESC As String = Chr(&H1B)

    displayString = ESC + "!" + Chr(1) + ESC + "|cA" + "Store Name" + ESC + "|1lF"
    displayString += ESC + "|cA" + "Store Address" + ESC + "|1lF"
    displayString += ESC + "|2C" + ESC + "|cA" + ESC + "|bC" + "Gift Receipt" + ESC + "|1lF" + ESC + "|1lF"
    displayString += ESC + "|N" + ESC + "!" + Chr(1) + "  Transaction #:  " + vbTab.ToString() + "105" + ESC + "|1lF"

displayString + =“Date:”+ Date.Today()+ vbTab.ToString()+“Time:”

   displayString += DateAndTime.Now().ToLongTimeString() + ESC + "|1lF"

   displayString += "  Cashier:  " + CStr(_currSess.Cashier.Number) + vbTab.ToString() + "Register:  " + CStr(_currSess.Register.Number) + ESC + "|1lF" + ESC + "|1lF"

   displayString += ESC + "|2uC" + "  Item                 Description           Quantity" + ESC + "|N" + ESC + "!" + Chr(1) + ESC + "|1lF" + ESC + "|1lF" + "  "

    'Iterate loop for each row of the Data Set.
For k As Integer = 0 To TransactionSet1.TransactionEntry.Rows.Count - 1

            'Checking for each row which has selected in DataGrid item.
  If CType(dgTransactionList.Item(k, 0), System.String) = "True" Then

                  'Get the Item value from selected row.
      Dim item As String = dgTransactionList.Item(k, 1).ToString()

                  Dim itemValue As String = String.Empty
                   If item.Length > 11 Then

'如果项长度大于11,则将项0的子串取为11。                   item = item.Substring(0,11)                       其他                      在项目字符串中“添加”,直到长度为11。                               虽然item.Length< = 11

                                 item += " "

                          End While

                  End If

     displayString += item + vbTab.ToString()
 Dim desc As String = dgTransactionList.Item(k, 2).ToString()
     Dim descValue As String = String.Empty

      If desc.Length > 20 Then

  'If Description length is greater then 20, then take substring of item 0 to 20.
             desc = desc.Substring(0, 20)

                Else
            While desc.Length <= 20

           'Adding " " in Description string until length 20.
                              desc += " "

                       End While

                End If

                displayString += desc + vbTab.ToString()
    Dim qnty As String = dgTransactionList.Item(k, 3).ToString()
                Dim qntyValue As String = String.Empty

                If qnty.Length > 3 Then

  'If Quantity length is greater then 20, then take substring of quantity 0 to 3.
      qnty = qnty.Substring(0, 3)

                Else

                    While qnty.Length <= 3

                  'Adding " " in Quantity string until length 20.
                             qntyValue += " "
                              qnty += " "

                    End While

                End If

                qntyValue += qnty.Trim()
                displayString += qntyValue
                displayString += ESC + "|1lF" + "  "

            End If

    Next k

 displayString += ESC + "|1lF"
 displayString += ESC + "|cA" + "Thank You for shopping" + ESC + "|1lF"
        displayString += ESC + "|cA" + _currSess.Configuration.StoreName + ESC + "|1lF"
        displayString += ESC + "|cA" + "We hope you'll come back soon!" + ESC + "|1lF" + ESC + "|1lF" + ESC + "|fP"
        _currSess.Register.SetActivePrinterNumber(0)

        Dim objRp As Object = _currSess.Register.ReceiptPrinter
        objRp.PrintNormal(2, displayString))

        objRp.Release()
        MsgBox("Gift Receipt printed Successfully.")

Catch ex As Exception

        MsgBox(ex.ToString())

 End Try

End Sub

答案 1 :(得分:0)

我最近开发了一个POS Web应用程序 它使用热敏打印机打印收据,它使用本地打印机

你只需使用javascript来捕获容器或.....你的内容

然后只需使用window.print()来打印它,打印出适合我的收据