Alle Dokumente einer View ausdrucken

[rar]

Hi!

Ich muß aus einem Script alle Documente einer View mit einer Druckmaske ausdrucken. Und zwar so, daß mehrere Dokumente auf einer Seite sind.
Eigentlich gehts mit:
Set uidb = ws.CurrentDatabase
Set uiview = ws.CurrentView
Call uiview.Print(1, 0, 0, False,0 , "Druckmaske")

Das Problem ist aber, daß um alle Dokumente ausdrucken zu können auch alle Dokumente in der Ansicht markiert sein müssen.
Mit dem Code wird sonst nur das erste Dokument ausgedruckt.

Dann dachte ich mir: Erstell halt ein Agent mit
@Command([EditSelectAll]);
@Command([FilePrint] ; "" ; "" ; "" ; "" ; "" ; "Druckmaske" );
@Command([EditDeselectAll])
und ruf ihn auf.

Dann kommt aber immer die Meldung, daß die @Funktion in diesem Kontext ungültig ist.

Hat jemand eine Idee, wie ich doch noch zu meinem Ausdruck komme bzw. alle Dokumente in der View mittels Script markieren kann?

lG

[shiraz]

Hi,

es funzt!!!!!!
Ist die MASKE da?

@Command([EditSelectAll]);
@Command([FilePrint] ; "" ; "" ; "" ;"" ; "" ; "Maske" );
@Command([EditDeselectAll])

[Catrex]

hallo,

das hat zwar eigentlich nichts damit zu tun, aber ich haben diesen Thread gelesen und konnte das rein zufällig auch für mich gebrauchen, aber nun habe ich noch eine andere Frage.

Und zwar wie kann man es hinbekommen, das wenn man eine Ansicht druck, dass diese auch ganze gedruck wird. Was ich genau meine ist, das ich auch alle Spalten ausgedruck bekomme. Wenn ich hier meine Ansicht drucken, dann druck er nur die Spalten, die auch auf eine A4 Seite Hochformat draufgehen. Es muss doch möglich sein das er den Rest auch noch auf eine 2. Seite druckt oder ?

Alternativ, ist es möglich über einen Print-Befehl einzustellen, das der Drucker kurzzeitig Querformat druckt. Habe da leider nichts in der Hilfe zu gefunden.


mfg


Sebastian ! ! !

[koehlerbv]

Notes und drucken sind zwei ziemlich unvereinbare Welten. Notes wurde eigentlich geschafffen für Prozesse, in denen eben NICHT mehr gedruckt werden sollte.
Notes druckt nichts mehr aus, was am rechten Papierrand verschwindet. Das ist nicht zu ändern - no way.
Mit Notes-Bordmitteln das Papierformat kurzfristig ändern: Ebenfalls no way (wurde gerade kürzlich hier AtNotes diskutiert).

Bernhard

[Catrex]

Tja, um erhlich zu sein habe ich mir sowas schon gedacht. Naja kann man wohl nichts machen. Wäre es denn so das ein solches Feature in Version 6 verfügbar wäre oder hat man sich da auch noch keine Gedanken zum Thema drucken gemacht ?

[koehlerbv]

In R6 hat sich da nichts geändert. Gedanken macht man sich eher darum, das Nicht-drucken-müssen zu erleichtern.
Ausserdem gibt es Zusatztools wie NotesToPaper oder IntelliPrint, die sich des Themas Drucken angenommen haben.

Bernhard

[rar]

@shiraz:
Die Formeln funktionieren schon, wenn ich sie aber als Agent mit einem Script aufruf gehts nicht.

[thoge]

Hallo rar,

nochmal zur ursprünglichen Frage:

Bei mir funzt das auch mit den @Commands.

Wäre die Maske nicht da, käme eine andere Meldung ala "ungültiges oder nicht vorhandenes Dokument".

Getestet habe ich das ganze in meiner Mail-Datenbank im Eingangsordner.

Hier ein Hinweis aus der Hilfe zu EditSelectAll, der evtl. weiterhelfen kann:

In einer Ansicht, einem Ordner oder Navigator im Gestaltungsmodus kann EditSelectAll nicht verwendet werden.

HTH

Thomas

[edit]

sorry rar, Deine Antwort zu shiraz ist mir untergegangen

[/edit]

[shiraz]

test it!

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As New NotesDatabase("","")
   Dim view As NotesView
   Dim uidoc As NotesUiDocument
   Dim doc As NotesDocument
   Dim UiView As NotesUIView
   
   Set db = session.CurrentDatabase

   Set view = db.GetView("deine ansicht")
   Set doc = view.GetFirstDocument
   Set UIView = workspace.currentview
   
   While Not(doc Is Nothing)
      
      Call Uiview.Print( 1,,,,,"deine maske",False)
      
      
      Set doc = view.GetNextDocument(doc)
   Wend
End Sub

[rar]

Danke Shiraz.
Das hatte ich schon probiert. Mit dem Uiview.Print() wird immer nur ein Dokument auf einer Seite ausgedruckt. d.h. z.B. 10 Docs auf 10 Seiten.
Ich benötige abär 10 Dokumente auf einer Seite.
Deswegen wäre ein SelectAll ziemlich fein.

[rar]

So.
Habs geschafft.

Ich habe die Dokumente, die ausgedruckt werden sollen mit
Call coll.PutAllinFolder("Foldername")
in einen SPOFU Folder verschoben und dann mit
Call ws.ComposeDocument( "","", "Meldung" )
ein neues Dokument mit der Maske "Meldung" erstellt.

In der Maske steht im Postopen:
@Command([OpenView] ; "Foldername" ; "" ; "1" );
@Command([EditSelectAll]);
@Command([FilePrint] ; "" ; "" ; "" ; "" ; "" ; "Druckmaske" );
@Command( [RemoveFromFolder] );
@Command([FileCloseWindow])

Das FileCloseWindow schließt den neu geöffneten Folder.
Dann hab ich noch ein Text in die Maske geschrieben (daß die Dokumente ausgedruckt werden) und alles hat gepasst.

Falls jemand das gleiche Problem mal hat, hoffe ich, daß meine Lösung ihm hilft.

lG