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]
|
|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
|
|
|
|