Step 1. Step 2. Step 3.
Step 1. Step 2. Step 3.
1 2 3
' Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset 'Connection 'Recordset ' cn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & ' rs.open, cn, adopenkeyset ' rs.close cn.close ' Set rs = Nothing Set cn = Nothing
1 2 3
' Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset 'Workspace 'Database 'Recordset ' Set ws = DBEngine.Workspaces(0)' Set db = ws.opendatabase( ) ' Set rs = db.openrecordset(, dbopendynaset) ' rs.close db.close ws.close ' Set rs = Nothing Set db = Nothing Set ws = Nothing
' Const CN_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ' ' Dim Cn As OleDbConnection 'OleDbConnection On Error GoTo ErrorHandle 'OleDbConnection Cn = New OleDbConnection(CN_STRING & System.IO.Directory.GetCurrentDirectory & "\" & ) ' Cn.Open() ' Cn.Dispose() Cn = Nothing End Sub
1 2 3
1 2 3 4 1 2 3 4
1 2 3 4 1 2 3
'Windows API Public Declare Function StartDoc Lib "gdi32" Alias "StartDocA" (ByVal hdc As Long, structdocinfo As DOCINFO) As Long Public Declare Function StartPage Lib "gdi32" (ByVal hdc As Long) As Long Public Declare Function EndPage Lib "gdi32" (ByVal hdc As Long) As Long Public Declare Function EndDoc Lib "gdi32" (ByVal hdc As Long) As Long ' Private Sub PrintOut() ' Dim objbspro As BSPro.Barcode 'BarStarPro Dim lret As Long ' ' lret = StartDoc(Printer.hdc, DOCINFO) lret = StartPage(Printer.hdc) ' Set objbspro = GetObject("", "BSPro.Barcode") ' With objbspro.symbology = &HA 'Symbology.Text = 1234567890 '.ElementSizeX = 10 '.ElementSizeY = 7 '.Encode Printer.hdc ' lret =.Draw(Printer.hdc, 0, 0) End With Set objbspro = Nothing ' lret = EndPage(Printer.hdc) ' lret = EndDoc(Printer.hdc) End Sub
' Private Sub cmdprint_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles cmdallprint.click ' PrintDocument1.Print() End Sub ' Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ' Dim objbspro As BSPro.Barcode 'BarStar Pro Dim iphdc As IntPtr ' Dim drawfont As New Font( MS, 7)' 'BarStar Pro objbspro = GetObject("", "BSPro.Barcode") ' objbspro.text = Åh1234657890Åh ' objbspro.encode(printdlg.printersettings.createmeasurementgraphics.gethdc(), False) ' iphdc = e.graphics.gethdc() ' With objbspro.draw(cint(iphdc), XPOS_BAR, YPOS_BAR)'.Symbology = &HA 'Symbology.ElementSizeX = 10 '.ElementSizeY = 7 ' End With End If objbspro = Nothing End Sub
1 2 3
1 2 3
Private Sub cmdprint_click() ' Dim ac As New Access.Application Dim sdir As String 'Application On Error GoTo ErrorHandle ' sdir = CurDir ' ac.opencurrentdatabase sdir & "\" &, False ' ac.docmd.openreport, acviewnormal, 'Access ac.closecurrentdatabase ' ac.quit Set ac = Nothing Exit Sub ErrorHandle: MsgBox Err.Description, vbexclamation, "ADO " Resume Next End Sub
Step 1. Step 2. Step 3. Step 1. Step 2. Step 3.
1 2 3 4
5 6
1 2 3 4 5 6 7 8
// Project1Dlg.h : // #include"bspro.h" // CProject1Dlg class CProject1Dlg : public CDialog { private: IBarcode m_barcode; } // Project1Dlg.h : // #include"cbarcode.h" // CProject1Dlg class CProject1Dlg : public CDialog { public: CBarcode m_barcode; }
1 2 3 4
5 6
1 2 3 4 5 6 7 8
// Project1Dlg.h : // #include "labelstar.h" // CProject1Dlg class CProject1Dlg : public CDialog { private: _WorkSpace m_workspace; _Labels m_labels; _Label m_label; _DataSheet m_datasheet; } // Project1Dlg.h : // #include"cworkspace.h" #include"clabels.h" #include"clabel.h" #include"cdatasheet.h" // CProject1Dlg class CProject1Dlg : public CDialog { private: CWorkSpace m_workspace; CLabels m_labels; CLabel m_label; CDataSheet m_datasheet; };
// CDC cdc; VARIANT vrefdc; VARIANT vpattern; // //Encode //Encode // if(startdoc(cdc.m_hdc, &docinfo) <= 0) { AfxMessageBox(_T("StartDoc ")); cdc.deletedc(); return; } // if(startpage(cdc.m_hdc) <= 0) { AfxMessageBox(_T("StartPage ")); cdc.deletedc(); return; } // m_barcode.setsymbology( ); m_barcode.settext( ); m_barcode.setelementsizex( ); m_barcode.setelementsizey( ); m_barcode.setfontsize( );
//Encode VariantInit(&vRefDC); VariantInit(&vPattern); vrefdc.byref = cdc.m_hdc; vpattern.boolval = FALSE; //Encode m_barcode.encode(vrefdc,vpattern); //Encode m_barcode.draw((long)cdc.m_hdc, XPOS_BAR, YPOS_BAR); // if(endpage(cdc.m_hdc) <= 0) { AfxMessageBox(_T("EndPage ")); cdc.deletedc(); return; } // if EndDoc(cdc.m_hDC) <= 0) { AfxMessageBox(_T("Enddoc ")); cdc.deletedc(); return; } // DeleteDC(cdc);
// COleException oleerror; // VARIANT vindex; // VARIANT vlabels; // VARIANT vcopies; // VARIANT vtestprint; // // m_workspace.createdispatch(("labelstar.workspace"), & oleerror); // ::VariantInit(&vIndex); Index.vt = VT_EMPTY; vlabels = m_workspace.labels(vindex); m_labels.attachdispatch(vlabels.pdispval); m_label.attachdispatch(m_labels.openlabel( )); //DataSheet m_datasheet.attachdispatch(m_label.datasheet()); // ::VariantInit(&vCopies); vcopies.vt = VT_I2; vcopies.ival = 1;
// ::VariantInit(&vTestPrint); vtestprint.vt = VT_BOOL; vtestprint.ival = FALSE; // m_label.printout(0, vcopies, vtestprint); // m_datasheet.releasedispatch(); // m_labels.closelabel(m_label); m_label.releasedispatch(); m_labels.releasedispatch(); // m_workspace.quit(); m_workspace.releasedispatch();
NLPLPrinterOpen NLPLSetJobName NLPLSetCommand NLPLReceiveCommand NLPLSendCommand NLPLPrinterColse NLPLPrinterOpenL NLPLSendCommandL NLPLReceiveCommandL NLPLPrinterCloseL
HANDLE NLPLPrinterOpen( LPSTR pprintername); LPSTR pprintername // pprintername
int NLPLSetJobName( HANDLE LPSTR hprinter, pjobname); HANDLE hprinter, // LPSTR pjobname // hprinter NLPLPrinterOpen pjobname NLPLSendCommand
NLPLSendCommand int NLPLSetCommand( HANDLE DWORD LPBYTE hprinter, dwindatasize, pindata); HANDLE hprinter, // DWORD dwindatasize, // LPBYTE pindata // hprinter NLPLPrinterOpen dwindatasize pindata pindata dwindatasize pindata
int NLPLReceiveCommand( HANDLE hprinter, DWORD dwoutdatasize, LPBYTE poutdata); HANDLE hprinter, // DWORD dwoutdatasize // LPBYTE poutdata // hprinter NLPLPrinterOpen() dwoutdatasize presponse dwoutdatasize poutdata poutdata poutdata NLPLSendCommand
NLPLSetCommand int NLPLSendCommand( HANDLE hprinter); HANDLE hprinter // hprinter NLPLPrinterOpen()
int NLPLPrinterColse( HANDLE hprinter); HANDLE hprinter // hprinter NLPLPrinterOpen
SOCKET NLPLPrinterOpenL( LPSTR pprintername, LPSTR phostname, LPSTR psocketport); LPSTR pprintername // LPSTR phostname // LPSTR psocketport // pprintername phostname psocketport
int NLPLSendCommandL( SOCKET Socket, DWORD dwindatasize, LPBYTE pindata); SOCKET Socket // DWORD dwindatasize // LPBYTE pindata // Socket NLPLPrinterOpenL() dwindatasize lpindata lpindata dwindatasize pindata
int NLPLReceiveCommandL( SOCKET Socket, DWORD dwoutdatasize, LPBYTE poutdata); SOCKET Socket // DWORD dwoutdatasize // LPBYTE poutdata // Socket NLPLPrinterOpenL() dwoutdatasize lpoutdata dwoutdatasize poutdata poutdata poutdata NLPLSendCommandL
int NLPLPrinterCloseL( SOCKET Socket); SOCKET Socket // Socket NLPLPrinterOpenL()