הנושאים החמים
- הוסף לסימניות
- #1
שלום
אני השתמשתי עד היום עם ברקוד של BarCodeWiz וזה קובץ DLL שמזוהה כ ActieX וצריך להוסיף אותו ל Reference בפרוייקט.
אני מעוניין להפסיק להשתמש עם תוספות חיצוניות ורפרנסים (שעושים בעיות במחשבים שונים וכדו').
מצאתי קוד VBA עבור אקסל שהוא ניגש לוורד (ללא רפרנס אלא באובייקט) ומקבל משם את DISPLAYBARCODE.
השאלה היא איך ממירים את הקוד ל Access.
זה קישור לקוד:
https://stackoverflow.com/questions/40790010/how-to-generate-barcodes-in-excel-worksheet
אני השתמשתי עד היום עם ברקוד של BarCodeWiz וזה קובץ DLL שמזוהה כ ActieX וצריך להוסיף אותו ל Reference בפרוייקט.
אני מעוניין להפסיק להשתמש עם תוספות חיצוניות ורפרנסים (שעושים בעיות במחשבים שונים וכדו').
מצאתי קוד VBA עבור אקסל שהוא ניגש לוורד (ללא רפרנס אלא באובייקט) ומקבל משם את DISPLAYBARCODE.
השאלה היא איך ממירים את הקוד ל Access.
זה קישור לקוד:
https://stackoverflow.com/questions/40790010/how-to-generate-barcodes-in-excel-worksheet
קוד:
Sub INSERT_BARCODE()
Const BarcodeWidth As Integer = 156
Dim ws As Worksheet, WdApp
Set ws = ActiveSheet
Set WdApp = CreateObject("Word.Application")
With WdApp.Documents.Add
.PageSetup.RightMargin = .PageSetup.PageWidth - .PageSetup.LeftMargin - BarcodeWidth
.Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " CODE39 \d \t", PreserveFormatting:=False).Copy
End With
ws.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
WdApp.Quit SaveChanges:=False
Set WdApp = Nothing
End Sub
