Bu hatayı nasıl giderebilirim?

[Tevfik_Kursun]

Günaydın Arkadaşlar,

Global secilen As String
Private Declare Function GetDefaultPrinter Lib "winspool.drv" Alias "GetDefaultPrinterA" (ByVal sPrinterName As String, lPrinterNameBufferSize As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

2010 64 bit Office kullanıyorum. Maalesef yukarıdaki satırların olduğu dosya tabii ki çalışmadı. Yardımcı olursanız sevinirim.
Saaygılarımla

 

[AdemCan]

Günaydın,

Declare statement (VBA)

Learn how to use Declare statement (VBA)

docs.microsoft.com

Buradaki örneğe göre Declare ifadesinden sonra PtrSafe ifadesi geliyor ve sonlardaki As Long ifadesi de As LongPtr olması gerekiyormuş.

 

[Tevfik_Kursun]

Sayın Faye_Efsane Hocam,
İlginize teşekkür ederim. Hemen deneyeceğim.
Saygılarımla