Drucker find 64 bit

'Von Nepumuk http://ww3.cad.de/ _
foren/ubb/Forum226/HTML/000702.shtml
Option Explicit
#If VBA7 Then                                       ' VBA7 64 bit
#Else                                               ' Downlevel when using previous version of  _
VBA7
Private 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
#End If
Private Const MAX_PRINTERS = 32&
Private strPrinterNames(MAX_PRINTERS) As String
Private strPrinterDrivers(MAX_PRINTERS) As String
Private strPrinterPorts(MAX_PRINTERS) As String
Private intPrinterCount As Integer