Beiträge von ufritz

  • standart drucker

    Hallo, der Code für Getdefaultprinter war nicht vollständig:


    Code
    Function GetDefaultPrinter() As String
	Dim TempName As String
	Dim DeviceNr As Long
	TempName = String(1024, 0)
	DeviceNr = GetProfileString("windows", "device", 0&, TempName, 1024)
	GetDefaultPrinter = Left(TempName, Instr(TempName, ",") - 1)
End Function


    Damit funktioniert es bei mir.


    Gruß
    U. Fritz