C#, WPF, vb.Net, vba, SQL Server, Access Programmierer, Excel, ASP Core MVC Webforms Telefon: 07022/9319004 freib. Software Entwickler   Kontakt
#

Download:

Datei 1: Demo_Barcode39.zip

Access, Excel Barcode Control

 

Barcode39 Control In Ms Access

 

In Microsoft Ms Access wird das ActiveX Control direct in ein Formular eingefügt.

Anschliessend kann per vba Code das Barcode Control einen Text in einen Barcode39 umwandeln und anzeigen.

 

Im vba Code wird hierzu in Extras->Verweise das Control axBarcode39 aktiviert

 

Anschliessend lässt es ich im vba Code direkt ansprechen.

Mit create_Barcode39(text) wird dann direkt der Barcode neu angezeigt

 

 

Code-Besipiel in MS Access vba Makro

Option Compare Database

Option Explicit On

 

Private Sub btnStart_Click()

    '--------< btnStart_Click() >--------

    Dim objBarcode As axBarcode39.ComControl

    Set objBarcode = ctlBarcode.Object

   

    '--< Barcode anzeigen >--

    objBarcode.create_Barcode39(tbxEncode.Value)

    '--</ Barcode anzeigen >--

 

    '--------</ btnStart_Click() >--------

End Sub

 

 

 

 

Barcode39 in Ms Excel

 

Das Barcode Control wird bei Excel am Besten dynamisch über den Makro-Code generiert.

Dabei werden reine Bitmaps als Graphiken in die Excel Datei eingefügt, wodurch das Excel-Dokument ohne Makro gespeichert und weitergegeben werden kann.

 

In Excel kann das Barcode Control über den Zwischenspeicher schnelle Bitmaps erstellen, damit kein ActiveX Control in der Datei übernommen werden muss

Mit der Methode create_Barcode39_to_Clipboard wird der Barcode39 direkt in die zwischenablage gelegt

Dim objBarcode As New axBarcode39.ComControl

objBarcode.create_Barcode39_to_Clipboard sEncode, 20

 

 

Excel fügt das Image dann mit Pastespecial ein

Range(target_cell).PasteSpecial

 

 

Kompletter vba Makro Code für Excel als Beispiel

Option Explicit On

 

Sub btnTest()

    create_Barcode39 "B4", "D4"

    create_Barcode39 "B5", "D5"

    create_Barcode39 "B6", "D6"

    create_Barcode39 "B7", "D7"

End Sub

 

 

Public Function create_Barcode39(ByVal encode_Cell As String, ByVal target_cell As String)

 

    '--------< btnStart_Click() >--------

    Dim sEncode As String

    sEncode = Range(encode_Cell)

 

    '-< create barCode >

    Dim objBarcode As New axBarcode39.ComControl

    objBarcode.create_Barcode39_to_Clipboard sEncode, 20

    '-</ create barCode >

 

 

 

    '< insert as bitmap >

    Range(target_cell).PasteSpecial

    '</ insert as bitmap >

    '--------</ btnStart_Click() >--------

End Function

 

 

 

 

 

 

 

Mobile
»
Barcode 39 ActiveX COM Control für MS Access Excel Word

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Raimund.Popp@Microsoft-Programmierer.de