Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Form Açılırken Fontun İnstal Edilmesi

cozum
cozum
Access Cevaplanmış Soruları
4
1310

Form Açılırken Fontun İnstal Edilmesi

Çözüldü #1
cozum
Aktif Üye
cozum
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 24
Konum: Bilecik
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 06/03/2024,10:12
Yorumları: 82
Konuları: 17
Kayıt Tarihi: 16/11/2018
Teşekkür Puanı: 0
merhaba arkadaşlar.

Form açılırken istenilen fontun install edilmesi gerekiyor.
yoksa tüm bilgisayarları dolaşmam gerekiyor.

form açılma olayında  code128.ttf  fontunu bilgisayara yükleyebilirmiyim.

 ilginiz içim teşekkürler.
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba Form veya Rapora Barkod Ekleme bağlantısındaki örneği inceleyiniz. Örnekte ilgili kodlar mevcut. Örneği inceleyerek çalışma mantığını görebilirsiniz.

Formdaki 


Sub FontuYukle()



Dim Evn, Font As Object

    Const fonts = &H14&

    Set Evn = CreateObject("Shell.Application")

    Set Font = Evn.Namespace(fonts)

    Font.copyhere Environ("TEMP") & "\GeciciBarkod\ean13.ttf"



End Sub


Sub FontIndirveYukle()



On Error Resume Next

Dim GKlasor As String

Dim Mesaj As Integer

GKlasor = Environ("TEMP") & "\GeciciBarkod\"

MkDir (GKlasor)

DownloadFileFromWeb

FontuYukle

Kill GKlasor & "*.*"

RmDir (GKlasor)

Mesaj = MsgBox("Barkod Fontu yüklendi. Uygulama Kapanıp tekrar açılacak.", vbInformation + vbOKOnly)

If Mesaj = vbOK Then

DuzenleOnarYenile

End If



End Sub

kodları fontu indirir ve yükler.

Modüldeki 
#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

#End If



Sub DownloadFileFromWeb()

    Dim myFile As String

    Dim Ret As Long

    Dim strSavePath As String

    Dim URL As String



    URL = "https://accesstr.net/sitegenel/ean13.ttf"

    strSavePath = Environ("TEMP") & "\GeciciBarkod\ean13.ttf"

    Debug.Print strSavePath

    Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)



    If Ret = 0 Then

        Exit Sub

    Else

        MsgBox "Dosya Yüklenemedi"

    End If

End Sub

Kodu fontu temp dizinine kaydeder.
Cevapla
#3
cozum
Aktif Üye
cozum
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 24
Konum: Bilecik
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 06/03/2024,10:12
Yorumları: 82
Konuları: 17
Kayıt Tarihi: 16/11/2018
Teşekkür Puanı: 0
ok.

test ediyorum.
Cevapla
#4
Uptadex
Üye
Uptadex
Bul
Üye
Adı Soyadı: Er.... Ku....
Yaşı: 25
Konum: Adıyaman
Ofis Versiyonu: Diğer
Son Oturumu: 12/03/2021,17:18
Yorumları: 14
Konuları: 4
Kayıt Tarihi: 28/06/2019
Teşekkür Puanı: 0
Mesleğiniz: Coder
(12/07/2019, 11:05)ozanakkaya yazdı: Merhaba Form veya Rapora Barkod Ekleme bağlantısındaki örneği inceleyiniz. Örnekte ilgili kodlar mevcut. Örneği inceleyerek çalışma mantığını görebilirsiniz.

Formdaki 


Kod:
Sub FontuYukle()

Dim Evn, Font As Object
    Const fonts = &H14&
    Set Evn = CreateObject("Shell.Application")
    Set Font = Evn.Namespace(fonts)
    Font.copyhere Environ("TEMP") & "\GeciciBarkod\ean13.ttf"

End Sub

Kod:
Sub FontIndirveYukle()

On Error Resume Next
Dim GKlasor As String
Dim Mesaj As Integer
GKlasor = Environ("TEMP") & "\GeciciBarkod\"
MkDir (GKlasor)
DownloadFileFromWeb
FontuYukle
Kill GKlasor & "*.*"
RmDir (GKlasor)
Mesaj = MsgBox("Barkod Fontu yüklendi. Uygulama Kapanıp tekrar açılacak.", vbInformation + vbOKOnly)
If Mesaj = vbOK Then
DuzenleOnarYenile
End If

End Sub
kodları fontu indirir ve yükler.

Modüldeki 
Kod:
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadFileFromWeb()
    Dim myFile As String
    Dim Ret As Long
    Dim strSavePath As String
    Dim URL As String

    URL = "https://accesstr.net/sitegenel/ean13.ttf"
    strSavePath = Environ("TEMP") & "\GeciciBarkod\ean13.ttf"
    Debug.Print strSavePath
    Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)

    If Ret = 0 Then
        Exit Sub
    Else
        MsgBox "Dosya Yüklenemedi"
    End If
End Sub
Kodu fontu temp dizinine kaydeder.

Hocam size zahmet projesini ekleyebilirmisiniz rica etsem , banada lazımda <3
Cevapla
#5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(12/07/2019, 19:32)Uptadex yazdı:
(12/07/2019, 11:05)ozanakkaya yazdı: Merhaba Form veya Rapora Barkod Ekleme bağlantısındaki örneği inceleyiniz. Örnekte ilgili kodlar mevcut. Örneği inceleyerek çalışma mantığını görebilirsiniz.

Formdaki 


Kod:
Sub FontuYukle()

Dim Evn, Font As Object
    Const fonts = &H14&
    Set Evn = CreateObject("Shell.Application")
    Set Font = Evn.Namespace(fonts)
    Font.copyhere Environ("TEMP") & "\GeciciBarkod\ean13.ttf"

End Sub

Kod:
Sub FontIndirveYukle()

On Error Resume Next
Dim GKlasor As String
Dim Mesaj As Integer
GKlasor = Environ("TEMP") & "\GeciciBarkod\"
MkDir (GKlasor)
DownloadFileFromWeb
FontuYukle
Kill GKlasor & "*.*"
RmDir (GKlasor)
Mesaj = MsgBox("Barkod Fontu yüklendi. Uygulama Kapanıp tekrar açılacak.", vbInformation + vbOKOnly)
If Mesaj = vbOK Then
DuzenleOnarYenile
End If

End Sub
kodları fontu indirir ve yükler.

Modüldeki 
Kod:
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadFileFromWeb()
    Dim myFile As String
    Dim Ret As Long
    Dim strSavePath As String
    Dim URL As String

    URL = "https://accesstr.net/sitegenel/ean13.ttf"
    strSavePath = Environ("TEMP") & "\GeciciBarkod\ean13.ttf"
    Debug.Print strSavePath
    Ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)

    If Ret = 0 Then
        Exit Sub
    Else
        MsgBox "Dosya Yüklenemedi"
    End If
End Sub
Kodu fontu temp dizinine kaydeder.

Hocam size zahmet projesini ekleyebilirmisiniz rica etsem , banada lazımda <3


Merhaba, alıntı yaptığınız mesajı tekrar okuyunuz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da