Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: tirreg am 17.06.03 - 13:18:10

Titel: Ausdruck von NotesDokumenten Word
Beitrag von: tirreg am 17.06.03 - 13:18:10
Hallo ,

ich möchte notesdokumente über winword drucken und denen dabei eine kopf (hier sollte auch die aktuelle seitennummer stehen) und fußzeile pro blatt mitgeben, weiß jemand wie das geht bzw. wo ich was darüber finde???  :-\

cheers Tirreg
Titel: Re:Ausdruck von NotesDokumenten Word
Beitrag von: ata am 17.06.03 - 14:23:30
... schau mal im LDD-Forum und suche dort nach "Word" - es gibt einiges an Script-Routinen - wenn es nicht eilt, dann kann ich dir später was ins Forum stellen...

ata
Titel: Re:Ausdruck von NotesDokumenten Word
Beitrag von: tirreg am 18.06.03 - 08:31:41
hi ata,

ja so nen paar samples wären nicht schlecht :) wenn du mal zeit hast, wäre super...

cheers tirreg
Titel: Re:Ausdruck von NotesDokumenten Word
Beitrag von: ata am 19.06.03 - 22:31:10
... Ausdruck per Word über einen Button oder Aktion. Du benötigst für den Ausdruck eine Word-Vorlage. In dieser Vorlage hast du bereits die Seitennummerierung entsprechend administriert...

... der Text aus Notes wird in Word an bereits hinterlegten "Lesezeichen" abgelegt...

... ich habe den Code aus dem LDD...

Code
'Defining variables
Dim myApp As Variant
Dim tmp as string

'Starting ms word as a ole object
Set myApp = CreateObject("Word.Application")

'Hiding word from the user
myApp.Visible = False

'Opening the template as a new doc, change tmp$ to the needed template path
myApp.Documents.Add (tmp$)

'Selecting what bookmark to write to
myApp.ActiveDocument.Bookmarks("WhoTo").Select 

'Define what you need to write in tmp$
'Then write it to the bookmark
myApp.Selection.TypeText(tmp$)

'Setting word to print in the foreground, i do this to prevent the rest of the 
code to execute before word is finished
myApp.Options.PrintBackground = False

'Starting printing
myApp.ActiveDocument.PrintOut

'Closing the word document without saving changes
myApp.Documents.Close(wdDoNotSaveChanges)

'Closing word
myApp.Application.Quit

'Releasing myapp
Set myApp = Nothing

... wenn du allerdings alles zu Fuß programmieren möchtest, dann empfehle ich dir die Schritte über ein Makro in Word aufzuzeichnen und dann den VBA-Code entsprechend ausprobieren und verwenden..

ata

Titel: Re:Ausdruck von NotesDokumenten Word
Beitrag von: wflamme am 20.06.03 - 03:25:45
Alternative:
http://www.sns1.de/partner/flamme/wflamme.nsf/Shortcut/WordInterface1 (http://www.sns1.de/partner/flamme/wflamme.nsf/Shortcut/WordInterface1)