Wie kann ich beim Ausrucken von Outlook ContactItems den Drucker auswählen?

[soulies]

hoi,

was passiert denn wenn du die reihenfolge deines Codes dahingehend änderst,
das zu erst der PrinterSetup Dialog erscheint.

Es könnte ja sein das beim aufruf von
oaOutlook := CoOutlookapplication.create; der aktuell eingestellte Drucker gespeichert und verwendet wird ...

wenn jetzt der Dialog kommt kann man zwar den Drucker ändern,
aber im Outlook-Objekt steht halt der alte drin ...

Idee:

Delphi-Quellcode:

procedure TvbCONTACT.ToolButton11Click(Sender: TObject);
var
  oaOutlook : Variant; //OutlookApplication;
  nsOutlookNamespace : Variant; //Namespace;
  ciContact : Variant; //ContactItem;
begin
  if PrinterSetupDialog1.Execute then
  begin
    // Login
    oaOutlook := CoOutlookapplication.create;
    nsOutlookNamespace := oaOutlook.getnamespace('MAPI');
    nsOutlookNamespace.Logon('', '', False, True);

    // Create ContactItem and fill contact information
    ciContact := oaOutlook.CreateItem(olContactItem);
    ciContact.FullName := 'TestName';  

    ciContact.PrintOut;
  end;
end;

cya

[JustVoodoo]

Hi soulies,

die Umstellung hat leider nichts gebracht. Es wird immer noch auf dem Windowsstandarddrucker gedruckt.

Ich habe noch etwas getestet und zwar kann man auch während des laufenden Delphiprogramms den Std-Drucker ändern und wenn ich auf meinen Toolbutton klicke, wird der neue Drucker ausgewählt. Ein möglicher Workarround wäre also, den Std-Drucker von Windows zu ändern, den Contact auszudrucken, und dann wieder den alten Drucker einstellen. Das würde ich aber nur ungerne machen, möglicherweise gibt es dabei ja auch Probleme mit den Rechten, bzw Druckereinstellungen. Ich weiss ja nicht, ob die Einstellungen wieder auf Standard gesetzt werden, wenn man zwischenzeitlich nen anderen Drucker als Std-Drucker hatte. Könnte ich zwar auch mal testen, aber diesen Workarround werde ich erst nutzen wenn es gar nicht anders geht.