| 9Mcode comment |
 |
|
|
|
| |
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #223 [Palm/PocketPC] (จาก IP: 203.113.45.228)
ติดต่อ Printer
ตามตัวอย่างที่ คุณศุภกิต ได้ ติดต่อ databsase นั้น แล้ว ที่ให้ติดต่อ กับปริ้นเตอร์ ได้ เปล่า ครับ
ถ้าติดต่อได้ มีวิธีติดต่ออย่างไร ครับ
|
| จากคุณ
:
PC [2006-02-28 18:45:52]
|
|
ความคิดเห็น #249 (จาก IP: 58.11.41.215)
http://www.fieldsoftware.com/PrinterCE_eVB.htm
ได้ผลยังไง รบกวนแจ้งด้วยครับ |
| จากคุณ
:
9'M / webmaster@sourcecode.in.th [2006-03-01 16:46:01]
|
|
ความคิดเห็น #250 (จาก IP: 58.11.41.215)
Attribute VB_Name = "Module1"
Option Explicit
' ------------ PrinterCE Declations ------------
'NOTE: Following items are REMed out because they are predefined in WinCE
' ScaleMode property
'NOTE: These are already defined in VBCE
'Public Const vbTwips = 1 ' default, Twip 1,440 twips per inch. 567 twips per centimeter.
'Public Const vbPoints = 2 ' Point (72 points per logical inch)
'Public Const vbPixels = 3 ' Pixel (smallest unit of printer resolution
'Public Const vbInches = 5 ' Inch
'Public Const vbMillimeters = 6 ' Millimeter
'Public Const vbCentimeters = 7 ' Centimeter
' DrawStyle property
'Public Const vbSolid = 0 ' default, soild
'Public Const vbDash = 1 ' dash
' prDialogBox method
Public Const vbDlgBoxDebugOn = -1 'Simple debugging mode ON. PrinterCE reports info through "Printing in progress" dialog
Public Const vbDlgBoxDebugOff = -2 'Debugging mode OFF (default).Const vbDlgUp = 0 ' Display "in progress" dialog box
Public Const vbDlgBoxUp = 0 ' Put dialog box up
Public Const vbDlgBoxDown = 1 ' Take down dialog box
Public Const vbDlgBoxDisable = 2 ' Prevent dialog box from being used
Public Const vbDlgBoxStatus = 3 ' Get status of printing operation
Public Const VbDlgBoxUserCancel = 4 ' Return True if user cancelled printing operation
Public Const vbDlgBoxAbortError = 5 ' Return True if an error aborted printing operation
' JustifyHoriz property
'Public Const vbLeftJustify = 0 ' default, TextX is Left of text/image
'Public Const vbRightJustify = 1 ' TextX is Right of text/image
'Public Const vbCenter = 2 ' TextX is Center of text/image
' JustifyVert property
Public Const vbTopJustify = 0 ' default, TextY is Top of text/image
Public Const vbBottomJustify = 1 ' TextY is Bottom of text/image
'Const vbCenter = 2 ' [Predefined] TextY is Center of text/image
' StatusCheck property (Read-Only)
Public Const vbNoError = 0 ' No error to report
Public Const vbUserCancel = 1 ' User cancelled print job
Public Const vbAbortOperation = 2 ' Error aborted the last print operation (but the print job is still viable).
Public Const vbAbortPrint = 3 ' Error aborted the print job
' SetErrorLevel property
Public Const vbErrLevelNone = 0 'default, No errors are returned - Use StatusCheck to watch progress
Public Const vbErrLevelAll = 1 ' All errors are returned
Public Const vbErrLevelTask = 2 ' Only errors that force abort of current operation or of printer job are returned
Public Const vbErrLevelJob = 3 ' Only errors forcing abort of the printer job are returned
' SetReportLevel property
Public Const vbReportErrors = 0 ' default, PrinterCE reports all errors to user via MsgBox()
Public Const vbNoReportErrors = 1 'PrinterCE reports no errors - it is up to the app to query PrinterCE and report
Public Const vbReportSeriousErrors = 2 'User cancel is not reported... all true errors are reported
Public Const vbNoReportErrorsSkipCancel = 3 'No errors are reported by PrEngineCE. If user presses Cancel, no "Are you sure" prompt is given.
'---------------------------------
' FillStyle property
Public Const PicFSSolid = 0 ' solid
Public Const PicFSTransparent = 1 ' default, transparent
' Leave The Above Line Commented Out
' PageOrientation property
Public Const vbPortrait = 1
Public Const vbLandscape = 2
' PaperSelection property
Public Const vbLetter = 1
Public Const vbA4 = 2
Public Const vbB5 = 3
Public Const vbLegal = 4
Public Const vbCustom = 5
' PrintQuality property
Public Const vbHigh = 1
Public Const vbDraft = 2
' Rotation property
Public Const vbNorth = 0 ' default, Rotation is 0 degrees
Public Const vbEast = 1 ' Rotation is 90 degrees clockwise
Public Const vbSouth = 2 ' Rotation is 180 degrees
Public Const vbWest = 3 ' Rotation is 270 degrees clockwise
'Capabilities property - Read-Only Bit-values (more than one can be true)
Public Const CAPS_STD = &H1 'PrinterCE Standard edition capabilities
Public Const CAPS_PLUS = &H2 'PrinterCE Plus capabilities
Public Const CAPS_ASCII = &H4 'AsciiCE capabilities
Public Const CAPS_BARCODE = &H8 'BarcodeCE capabilities
Public Const CAPS_ASCII2 = &H10 'AsciiCE2 capabilities
Public Const CAPS_PRINTDC = &H20 'PrintDC capabilities
'
'--------------------------------------
'AsciiCE specific Const values
Public Const S_DONTCARE = 0
'SelectPort method
' Port parameter
Public Const PORT_PRINTERCE = -1
Public Const PORT_COM1 = 0 ' Open COM1
Public Const PORT_COM2 = 1
Public Const PORT_LPT = 2 'LPT1
Public Const PORT_IR = 3 'Use IR infrared port
Public Const PORT_COM3 = 4
Public Const PORT_COM4 = 5
Public Const PORT_COM5 = 6
Public Const PORT_COM6 = 7
Public Const PORT_TOFILE = 8
Public Const PORT_NETPATH = 9
Public Const PORT_IP = 10
Public Const PORT_SOCKETCOM = 11
Public Const PORT_ANYCOM = 12
Public Const PORT_COM7 = 13
Public Const PORT_COM8 = 14
Public Const PORT_COMPAQ = 15
Public Const PORT_IPAQ = 15
Public Const PORT_BELKIN = 16
Public Const PORT_WIDCOMM = 16
Public Const PORT_COM9 = 17
Public Const PORT_BTQUIKPRINT = 18
Public Const PORT_BTQUICKPRINT = 18
'*********************
' Items for SetupPrinterOther() BitFlags field
Public Const BITFLAG_CMYONLY = &H8
Public Const BITFLAG_COLOR = &H4
Public Const BITFLAG_IRADJUST = &H2
Public Const BITFLAG_AUTOSPEED = &H1
Public Const BITFLAG_DRAFTMODE = &H80
Public Const BITFLAG_SINGLETHREAD = &H40
Public Const BITFLAG_OTHERIR = &H20
' Add special flag to allow SetupPrinter() so skip connecting to printer port
Public Const BITFLAG_SKIPCONNECT = &H8000
'ReadString()/ReadBuffer() "ModeFlags"
Public Const READMODE_NORMAL = 0
Public Const READMODE_FLUSHZEROS = 1
'ReadString()/ReadBuffer() "ResultFlags"
Public Const READRESULT_ERR = 0
Public Const READRESULT_OK = 1
Public Const READRESULT_FULLBUFFER = 2
Public Const READRESULT_TIMEOUT = 3
Public Const READRESULT_USERCANCEL = 4
' BaudRate parameter - for LPT or IR, just set to S_115200
Public Const S_4800 = 0 '4800 baud
Public Const S_9600 = 1 '9600 baud
Public Const S_19200 = 2 '19200 baud
Public Const S_38400 = 3 '38400 baud
Public Const S_57600 = 4 '57600 baud
Public Const S_115200 = 5 '115200 baud
' Handshake parameter
Public Const SOFTWARE_HANDSHAKE = 0 ' Uses Xon/Xoff
Public Const HARDWARE_HANDSHAKE = 1 'Uses hardware lines
Public Const NO_HANDSHAKE = 2 'No handshake
' Set special hardware modes from AsciiCE2 -
' ORed to SelectPortEx Handshake param
' HANDSHAKE_BITS are # of bits reserved to set handshake mode
Public Const SET_PARITY_NONE = &H0
Public Const SET_PARITY_EVEN = &H800
Public Const SET_PARITY_ODD = &H400
Public Const SET_STOPBITS_ONE = &H0
Public Const SET_STOPBITS_ONEANDHALF = &H200
Public Const SET_STOPBITS_TWO = &H100
Public Const SET_BYTESIZE_8 = &H0
Public Const SET_BYTESIZE_7 = &H80
Public Const SET_NO_DSR = &H0
Public Const SET_USE_DSR = &H40
' Printer Types
Public Const PR_CANONBJ = 0
Public Const PR_CITIZEN_PD04 = 1
Public Const PR_CITIZEN_PN60 = 2
Public Const PR_EPSON_ESCP2 = 3
Public Const PR_EPSON_STYLUS = 4
Public Const PR_HP_PCL = 5
Public Const PR_PENTAX_200 = 6
Public Const PR_PENTAX_300 = 7
Public Const PR_SEIKO3445 = 8
Public Const PR_GENERIC24_180 = 9
Public Const PR_GENERIC24_360 = 10
Public Const PR_GENERIC24_203 = 11
Public Const PR_EXTECH_2 = 12
Public Const PR_EXTECH_3 = 13
Public Const PR_ONEIL = 14
Public Const PR_DYMOCOSTAR = 15
Public Const PR_SEIKOSLP = 16
Public Const PR_EXTECH_4 = 17
Public Const PR_SIPIX = 18
Public Const PR_CITIZEN_203 = 19
Public Const PR_ZEBRA = 20
Public Const PR_BROTHER = 21
Public Const PR_CANONBJ300 = 22
Public Const PR_CITIZEN_PD22 = 23
Public Const PR_MPP100 = 24
Public Const PR_PP50 = 25
Public Const PR_CITIZEN_CMP10 = 26
Public Const PR_OMNI = 27
Public Const PR_SEIKO_L465 = 28
Public Const PR_SPRINT = 29
Public Const PR_FUJITSU = 30
Public Const PR_EPSON_TM_P60 = 31
Public Const PR_INTERMEC = 32
Public Const PR_ABLE_AP1300 = 33
Public Const PR_AXIOHM_A631 = 34
Public Const PR_ELTRADE = 35
Public Const PR_PP55 = 36
Public Const PR_CANONBJ600 = 37
Public Const PR_TALLY_MTP4 = 38
Public Const PR_TALLY_MIP360 = 39
Public Const PR_GEBE = 40
'FormFeed mode - Only valid for PrinterCE Plus using Custom Printer driver
Public Const FFEED_NORMAL = 0
Public Const FFEED_PAPERHT = 1
Public Const FFEED_SCROLL = 2
'Print Density - Only valid for PrinterCE Plus using Custom Printer driver
Public Const DENSITY_EXTRALIGHT = 0
Public Const DENSITY_LIGHTER = 1
Public Const DENSITY_NORMAL = 2
Public Const DENSITY_DARKER = 3
Public Const DENSITY_EXTRADARK = 4
'AutoSpeed mode - Only valid for PrinterCE Plus using Custom Printer driver
Public Const AUTOSPEED_OFF = 0
Public Const AUTOSPEED_ON = 1
'Compressed mode - Only valid for PrinterCE Plus using Custom Printer driver
Public Const COMPRESSED_OFF = 0
Public Const COMPRESSED_ON = 1
'Dither mode - Only valid for PrinterCE Plus using Custom Printer driver
Public Const DITHER_OFF = 0
Public Const DITHER_ON = 1
'Draft mode - Only valid for PrinterCE Plus using Custom Printer driver
Public Const DRAFTMODE_OFF = 0
Public Const DRAFTMODE_ON = 1
'
'--------------------------------------
'BarcodeCE constants
'BarCodeHeight property
Public Const BC_UPCEAN = 0
Public Const BC_MSI = 1
Public Const BC_Code93 = 2
Public Const BC_Code128 = 3
Public Const BC_Codabar = 4
Public Const BC_Code39 = 5
Public Const BC_Code2of5 = 6
Public Const BC_Postnet = 7
' Draw2of5 method
Public Const TYPE2of5_BASE = 0
Public Const TYPE2of5_CHECKSUM = 1
' DrawCode39 method
Public Const TYPE39_NORMAL = 0
Public Const TYPE39_CHECKSUM = 1
Public Const TYPE39_HIBC = 2
' DrawCode128 method
Public Const TYPE128_AUTO = 0
Public Const TYPE128_UCC128 = 1
' DrawCodabar method
Public Const TYPECodabar_BASE = 0
Public Const TYPECodabar_CHECKSUM16 = 1
' DrawMSI method
Public Const TYPEMSI_Mod10 = 0
Public Const TYPEMSI_Mod1010 = 1
Public Const TYPEMSI_Mod1110 = 2
' DrawUPC method
Public Const TYPE_UPC_A = 0
Public Const TYPE_UPC_E = 1
Public Const TYPE_UPC_EAN8 = 2
Public Const TYPE_UPC_EAN13 = 3
Public Const TYPE_UPC13 = 3 'Same as TYPE_UPC_EAN13
'DrawUPC "typeUPCsystem" parameters
Public Const TYPE_UPC_NOEXTRA = 0
Public Const TYPE_UPC_2EXTRA = 2
Public Const TYPE_UPC_5EXTRA = 5
'
'Barcode "fit" constants
Public Const bcTIGHT = 0
Public Const bcMEDIUM = 1
Public Const bcLOOSE = 2
Public Const bcTIGHTminus1 = 3
Public Const bcTIGHTminus2 = 4
'Barcode "resize" percentage - vertically
Public Const bcVResize_95 = &H5F00
Public Const bcVResize_90 = &H5A00
Public Const bcVResize_85 = &H5500
Public Const bcVResize_80 = &H5000
Public Const bcVResize_75 = &H4B00
Public Const bcVResize_70 = &H4600
Public Const bcVResize_65 = &H4100
Public Const bcVResize_60 = &H3C00
Public Const bcVResize_55 = &H3700
Public Const bcVResize_50 = &H3200
'Barcode point size override
Public Const bcFontSize_NoText = &H0
Public Const bcFontSize_DefaultSize = &H1
Public Const bcFontSize_04 = &H4
Public Const bcFontSize_05 = &H5
Public Const bcFontSize_06 = &H6
Public Const bcFontSize_07 = &H7
Public Const bcFontSize_08 = &H8
Public Const bcFontSize_09 = &H9
Public Const bcFontSize_10 = &HA
Public Const bcFontSize_11 = &HB
Public Const bcFontSize_12 = &HC
Public Const bcFontSize_13 = &HD
Public Const bcFontSize_14 = &HE
Public Const bcFontSize_15 = &HF
Public Const bcFontSize_16 = &H10
'
'GENERAL DEFINITIONS: Base colors (white & black predefined in VBCE)
'Public Const vbWhite = &HFFFFFF
'Public Const vbBlack = 0
Public Const vbLightGray = &HC0C0C0
Public Const vbDarkGray = &H101010
|
| จากคุณ
:
9'M / webmaster@sourcecode.in.th [2006-03-01 16:46:49]
|
|
ความคิดเห็น #251 (จาก IP: 58.11.41.215)
วิธีการใช้ดูจาก
http://www.cooltang.com/box/200201/200201301538170611761510993712.htm
ครับ |
| จากคุณ
:
9'M / webmaster@sourcecode.in.th [2006-03-01 16:48:00]
|
|
ความคิดเห็น #253 (จาก IP: 203.113.45.228)
ผมลองtest แล้ว ด้วย code
Dim PrinterCE1
Set PrinterCE1 = CreateObject("PrEngineCE.PrinterCE")
'----------------------------------------------
PrinterCE1.SelectPrinter
PrinterCE1.DrawText "Hello World"
PrinterCE1.EndDoc
แจ้ง error
An errror was encontered while running
the progame Actiivex component can't create object
ไม่ทราบว่าผิดตรงไหน หรือเปล่า
ช่วยตอบด้วย ครับ
|
| จากคุณ
:
PC [2006-03-03 11:09:24]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
|
|
New Article
อัตราค่าโฆษณา
