Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: eknori am 05.09.04 - 11:43:48

Titel: Attachment mit Memo ausdrucken
Beitrag von: eknori am 05.09.04 - 11:43:48
wie kann ich beim drucken eines memos direkt ein angehängtes attachment mit ausdrucken?
Hat jemand schon mal einen solchen Stunt programmiert ?
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: Christopher am 05.09.04 - 12:49:51
Mir ist bis jetzt auch noch keine Lösung bekannt evtl. Domino 7? Bei Outook gibt es diese Funktion.
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: y20frank am 05.09.04 - 13:11:48
Hi Ulrich!
Das ist wirklich 'n Stunt... wüsste da auch nichts, aber wenn mal was da wäre sicher ein klasse Tool... Hast du mal die Snadbox durchsucht, vielleicht ist ja dort etwas zu finden?

Zitat von: Christopher am 05.09.04 - 12:49:51
evtl. Domino 7?

Hm, nö, auch da hab ich nichts gefunden

Aus der 7'er Help heißt es lapidar:
You can print most file attachments directly from Notes.
Note  You cannot print an attached vCard file directly, but you can save it as a contact document in your Personal Address Book and then print the document.
To print an attached file
  1.   Click the attachment.
  2.   From the menu, choose Attachment - View.
  3.   Choose File - Print.
  4.   (Optional) To print more than one copy, enter the number of copies.
  5.   Click OK. (Macintosh users, click Print.)


Gruß
Frank
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: eknori am 05.09.04 - 13:18:49
Ja, die Sandkiste gibt nichts her in der Richtung; da werde ich dann mal ein wenig drüber meditieren müssen.
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: Glombi am 05.09.04 - 13:46:44
Soll denn das für alle möglichen Dateitypen gehen?
Word, Excel und sowas kann man ja via COM Klassen drucken?
Bei PDF habe ich es auch hinbekommen, sofern der Acrobat Reader installiert ist.
Aber was ist mit dem Rest?

Andreas
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: eknori am 05.09.04 - 13:51:07
prinzipiell soll das mit allen Typen von Anhängen so gehen ( natürlich nur da, wo es Sinn macht - kein .exe oder .zip etc )
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: TMC am 05.09.04 - 14:06:01
Zitat von: eknori am 05.09.04 - 13:51:07
prinzipiell soll das mit allen Typen von Anhängen so gehen ( natürlich nur da, wo es Sinn macht - kein .exe oder .zip etc )

Hmm, wie wär's wenn Du das auf Eure gängige Firmensoftware zuschneidest?

Also z.B.:
 - MS Office
 - pdf
 - .txt

Ich könnte mir vorstellen, damit deckt man > 90% ab.
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: eknori am 05.09.04 - 14:23:15
ja, sehe ich auch so... Bin schon am coden  :D
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: TMC am 05.09.04 - 17:55:50
Zitat von: eknori am 05.09.04 - 14:23:15
Bin schon am coden  :D

Schön  :D

Hab hier noch ein Script irgendwo, um rauszufinden, mit welcher exe-Datei Windows die ausgewählte Datei (pdf, doc, xls, etc.) beim Doppelklick öffnet.

Muss mal kramen......
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: eknori am 05.09.04 - 18:03:28
brauchst du nicht, den ganzen API Kram habe ich hier
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: eknori am 05.09.04 - 18:07:36
im Prinzip braucht man eigentlich nur das, um ein Att non Platte zu drucken

Sub PrintDefault (fname As String)
   
 'Ref: Microsoft article Q170918
   
   Dim hwnd As Long
   Dim ret As Long
   Dim msg As String
   
   ret = ShellExecute(hwnd, "Print", fname, "", "", 0)
   
   If ret<32 Then  ' Error
      
      Select Case ret        
         
      Case ERROR_FILE_NOT_FOUND
         msg = "File not found"
      Case ERROR_PATH_NOT_FOUND
         msg = "Path not found"
      Case SE_ERR_ACCESSDENIED
         msg = "Access denied"
      Case SE_ERR_OOM
         msg = "Out of memory"
      Case SE_ERR_DLLNOTFOUND
         msg = "DLL not found"
      Case SE_ERR_SHARE
         msg = "A sharing violation occurred"
      Case SE_ERR_ASSOCINCOMPLETE
         msg = "Incomplete or invalid file association"
      Case SE_ERR_DDETIMEOUT
         msg = "DDE Time out"
      Case SE_ERR_DDEFAIL
         msg = "DDE transaction failed"
      Case SE_ERR_DDEBUSY
         msg = "DDE busy"
      Case SE_ERR_NOASSOC
         msg = "No association for file extension"
      Case ERROR_BAD_FORMAT
         msg = "Invalid EXE file or error in EXE image"
      Case Else
         msg = "Unknown error"
      End Select
      
      Msgbox MSG_UnableToPrint + fname + Chr$(13) + MSG_Continue, 16, msg
      Print("Could not print attachment: " & fname)
      
   Else
      
      Print("Printing attachment : " & fname)
      
   End If
   
End Sub
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: eknori am 06.09.04 - 10:30:48
so, hier die fertige Lösung. Diue Datenbank enthält eine Teilmaske mit dem nötigen Code. Die teilmaske wird in die Memo Maske eingebunden und stellt dann einen Buhtong zur verfügung, der zunächst die Memo und dann die angehängten Dateien ausdruckt.
Es wird auf dem Standarddrucker gedruckt.
Titel: Re:Attachment mit Memo ausdrucken
Beitrag von: TMC am 06.09.04 - 22:17:24
Prima, sieht gut aus  :D

Habs in R6 mit pdf, doc, xls und txt getestet, klappte einwandfrei.

Frage:
Warum unterscheidest Du teilweise noch (bzw. auskommentiert) zwischen den Office-Apps?

Code
   Select Case Lcase$(FileExtension)
   Case ""
      Msgbox MSG_NoExtension, 16, MSG_UnableToPrint + fname
 '       Case ".doc"
 '               Call PrintMSWord (fname)
   Case ".xls"     
      Call PrintMSExcel (fname)               
 '       Case ".ppt"
 '               Call PrintMSPowerPoint (fname)
   Case Else
      PrintDefault (fname)
   End Select