Datamax-oneil DPL Programmer’s Manual Manual de usuario Pagina 165

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 296
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 164
Appendix B – Sample Programs
157
‘Concatenate all the dynamic data fields with the constant header
strings, terminated with <cr> Chr$(13)
OrderData = OrderTxt & txtOrderNo.Text & Chr$(13) & OrderBC &
txtOrderNo.Text & Chr$(13) & CustomerTxt & txtCustomer.Text
Item1 = Item1NO & txtItem1.Text & Chr$(13) & Item1BC &
txtItem1.Text & Chr$(13) & Item1Txt & txtItem1Desc.Text & Chr$(13)
& Item1Qty & txtItem1Qty.Text
‘Concatinate entire label format and send out serial port
PrintLabel = CharSet & MaxLength & Chr$(13) & CharSet &
StartLabel & Chr$(13) & PrintDensity & Chr$(13) & Image1 & Chr$(13)
& OrderData & Chr$(13) & Item1 & Chr$(13) & Fixed & Chr$(13) &
EndLabel
Comm1.Output = PrintLabelEnd Sub
‘Display the record form on the screen
Private Sub Form_Load()
Fixed = Itm1 & Chr$(13) & Chr$(13) & Qty1 & Chr$(13) & Chr$(13)
& BoxPos1 & Boxsize & Chr$(13)
CharSet = Chr$(126) ‘Alternate <stx> character ~
MComm.PortOpen = 1‘Open the serial port
End Sub
‘Exit the program by clicking Exit button with the mouse
Private Sub cmdExit_Click()
Comm1.PortOpen = 0‘Close down the serial port
End
End Sub
VB Application interfacing via Windows Driver
Create a form similar to the one shown here.
VERSION 5.00
Begin VB.Form Form1
Caption = “Datamax Test Print”
ClientHeight = 1065
ClientLeft = 60
ClientTop = 345
ClientWidth = 2325
LinkTopic = “Form1”
MaxButton = 0 ‘False
MinButton = 0 ‘False
ScaleHeight = 1065
ScaleWidth = 2325
Vista de pagina 164
1 2 ... 160 161 162 163 164 165 166 167 168 169 170 ... 295 296

Comentarios a estos manuales

Sin comentarios