שלום אני השתמשתי עד היום עם ברקוד של 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
@moishy מצאתי, תראה מה כתבתי כאן השאלה: http://tchumim.com/topic/1663/איך-עושים-ברקוד-באקסס-ללא-activx/2 התקנת פונט עם הרשאות מנהל דרך VBA. http://tchumim.com/topic/1671/אקסס-vba-עם-הרשאות-מנהל אגב אתה נמצא בתחומים?
@yits ברור שאפשר עם גופן, חשבתי שרצית באמצעות VBA נקי, ללא תלותיות כלל. יש לי משתמש בתחומים אבל אני לא פעיל שם (עדיין).
@moishy אני הצלחתי לעשות התקנה לפונט דרך VBA עם הרשאות מנהל. והשאלה המעניינת האם אפשר לאחסן בתוך אקסס קובץ של פונט ולעשות משם Copy
בודאי בתור קובץ מצורף. אח"כ ניתן לחלץ את הקובץ ע"י שימוש בrecordset rs.Fields("FontField").SaveToFile strFileName
אבל אני יצטרך כנראה להעתיק למיקום זמני ומשם ע"י הרצת CMD בהרשאות מנהל לתוך c:\windows\font או שיש לך דרך יותר קצרה?
@moishy חבר שלח לי לינק לברקוד שכולל התקנת פונט וקוד VBA אבל זה גירסת דמו.. אבל הפתרון פשוט להסתיר את החלק העליון של הברקוד. https://barcodewiz.com/upc-ean-fonts-features.aspx
@moishy אני גם ערכתי את הפונט שהייתי צריך אגב באיזה תוכנה השתמשת? אני השתמשתי בזה:FontCreator http://p30download.com/fa/entry/33876/