Kernel32 Hatası

[3641]

Excel 2010 Kullanıyorum aşağıdaki kod 32bit sistemde çalışan kod idi
Makinaya format atıp 64 bit kurdum şimdi kod hata veriyor yardımcı olacaklara şimdiden teşekkür ederim. Hata veren kısım --- işaretleri arasındadır.

Option Explicit
---
Public Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
---

Public Function Varsayılan_Yazıcı() As String
Dim Varsayılan_Yazıcı_Adı As String, Kontrol As Integer

Varsayılan_Yazıcı_Adı = Space(255)

Kontrol = GetProfileString("Windows", ByVal "device", "", _
Varsayılan_Yazıcı_Adı, Len(Varsayılan_Yazıcı_Adı))

If Kontrol Then
Varsayılan_Yazıcı_Adı = Left(Varsayılan_Yazıcı_Adı, InStr(Varsayılan_Yazıcı_Adı, ",") - 1)
End If

Varsayılan_Yazıcı = Varsayılan_Yazıcı_Adı
End Function

 

[Murat OSMA]

Bu Api ile değiştirin;

Public Declare PtrSafe Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long) As Long

■ 32Bit Apilerinizi 64Bit Apiye dönüştürmeniz gerek...

 

[3641]

Sayın Murat OSMA ,
Cevabınız sorunumu çözdü ilginiz ve yardımınız için teşekkür ederim.

Saygılarımla,

 

[Murat OSMA]

Rica ederim, iyi günler...