Internetexplorer 11 Windows 7 Inhalt ausdrucken

[Alterauge]

Hallo,
habe nicht den ganzen Quelltext gezeigt!
Versuchen eine Art Alarmdrucker Tool zu programmieren!
Vor dieser Anwendung sitzt kein Anwender bzw. Benutzer.

Es kommt eine Alarmmeldung (MySQL DB / DBMemo1) mit Strasse /Ort usw.
Jetzt soll die Route berechnet werden. Läuft auch! Wird auf einem Bildschirm angezeigt!
Jetzt fehlt noch der Ausdruck!

So sieht es zur Zeit aus! Bin noch am testen!

Delphi-Quellcode:

procedure TForm1.TransferTimer(Sender: TObject);
 var
  f: String;
 sl: TStrings;
 i : Integer;
  begin
   if DBMemo1.Text <>'' then begin
    i:=Memo1.Lines.Count;
    try
     sl := TStringList.Create;
     sl.Delimiter := Edit7.Text[1];
     sl.StrictDelimiter := True;
     sl.DelimitedText := DBMemo1.Text;
     Memo1.Lines.Assign( sl);
     Edit3.Text := Memo1.Lines[0];
     Edit4.Text := Memo1.Lines[1];
     Edit5.Text := Memo1.Lines[2];
     Edit6.Text := Memo1.Lines[(Memo1.Lines.count-1)];
     Edit1.Text := Edit4.Text;
     Edit2.Text := Edit5.Text;
     ShellExeCute(handle, 'open', PChar('http://maps.google.de/maps?f=d&source=s_d&saddr= ' + Edit8.text + ' +%2C+' + Edit9.text + '&daddr= ' + Edit2.Text + ' ' + Edit1.Text), nil, nil, sw_show); //+'&ie=UTF8&z=8'
     ProtokollStorage.Insert;
     ProtokollStorage.FieldByName('Status').Text := '0';
     ProtokollStorage.FieldByName('Meldung').Text := 'Daten wurden erfolgreich gelesen > '+Edit6.Text;
     ProtokollStorage.FieldByName('Datum').Text := FormatDateTime('dd.mm.yyyy', now);
     ProtokollStorage.FieldByName('Zeit').Text := FormatDateTime('hh:nn:ss', now);
     ProtokollStorage.Post;
     MapsStorage.Insert;
     MapsStorage.FieldByName('Einsatzart').Text := Edit3.Text;
     MapsStorage.FieldByName('Strasse').Text := Edit4.Text;
     MapsStorage.FieldByName('Stadt').Text := Edit5.Text;
     MapsStorage.FieldByName('Einsatznummer').Text := Edit6.Text;
     MapsStorage.FieldByName('Datum').Text := FormatDateTime('dd.mm.yyyy', now);
     MapsStorage.FieldByName('Zeit').Text := FormatDateTime('hh:nn:ss', now);
     MapsStorage.FieldByName('Status').Text := Copy( TelegramStorage.FieldByName('Address').Text, 8 );
     MapsStorage.FieldByName('Text DME Leitstelle').Text := DBMemo1.Text;
     MapsStorage.Post;
     TelegramStorage.Delete;
     ProtokollStorage.Insert;
     ProtokollStorage.FieldByName('Status').Text := '1';
     ProtokollStorage.FieldByName('Meldung').Text := 'Route wurde erfolgreich berechnet > PRINT > DEPESCHE  > '+Edit6.Text;
     ProtokollStorage.FieldByName('Datum').Text := FormatDateTime('dd.mm.yyyy', now);
     ProtokollStorage.FieldByName('Zeit').Text := FormatDateTime('hh:nn:ss', now);
     ProtokollStorage.Post;
     if CheckBox3.Checked = true then begin
     f := ExtractFilePath(Application.ExeName)+Edit6.Text+ '.asc';
     Memo1.Lines.SaveToFile(f);
     Memo1.Clear;
     end else begin
     Memo1.Clear;
     end;
    finally
      sl.Free;
    end;
end else begin
  //Showmessage('"Kein Inhalt verfügbar!" ');
 end;
end;