Drucken als Dienst bei W2000 Server

[Eduard Demont]

Hallo Leute,

in einem Programm von mir, das als Dienst läuft und mit einer interaktive Beziehung des Dienstes zum Desktop steht, kann ich bei W2000 Server nicht Drucken Bei W2000 + Prof, XP + Prof , SBS 2003 geht es. An was kann dies liegen?
Hier ein kurzer Sourceauszug:

.......

Function PrintTo(Const Bitmap: TBitmap; DruckerNr: Integer):Boolean;
Var rect: TRect;
fct: Double;

begin
Result := True;
TRY
Printer.PrinterIndex := DruckerNr;

fct := Printer.PageWidth/BitMap.Width;
fct := BitMap.Height*fct;
with rect do begin
Left := 0;
Top := 0;
Right := Printer.PageWidth;
Bottom := Round(fct);
end;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(rect, BitMap);
Printer.EndDoc;

EXCEPT
Result := False;
END;
end;

.....

Nur das man die Einfachheit der Druckroutine sieht

Der Druck funktioniert weder im Angemeldetem Desktop (Es erscheint dann ein Tray-Icon) noch im Dienst. Wie schon geschrieben nur in W2000 Server geht es nicht.

Danke schon mal füe Eure Antworten

mfg Eduard Demont

[Mario.Noack]

Hast Du mal am Server versucht mit dem Notepad zu Drucken. Vielleicht ist es ja kein Problem deiner Anwendung. Was schlecht ist: Du verschluckst den Fehler und gibst ihn nicht aus.<p>
Mari

[Eduard Demont]

Hallo Mario.Noack,

leider ist es bei allen Win2000 Server. Was ich nicht geschrieben habe, man kann mein Programm auch normal starten, also als Desktop-Programm und dann funktionierts.
Das mit dem Fehlerausgeben habe ich oben nicht aufgeführt (nur hier weggelassen)

mfg Eduard Demon

[Eduard Demont]

Hallo Leute,

ich habe das Problem gelösst. Es liegt nicht am Source oder meinem Programm. Das Problem ist der "Local-Service" der die Drucker nicht sieht/kennt. Unter http://support.microsoft.com/kb/q184291/
steht wie man das Problem lösen kann.

mfg Eduard Demon