Drucken über Word

[Rolf Ramacher]

Hi Thomas,

ich habe im entsprechenden Pfad - unter msword die prg modifziert mit den gleichen Parametern wie aus meiner PRG und die dot-Datei auf mehrere Seiten erweitert. Es werden immer alle Seiten gezogen. ?????

[Muecke]

Hi Rolf,

Was ich aber mache, ist eine *.doc Datei zum drucken drucken und nicht die Vorlage( *.dot). Mach mal aus der Vorlage eine doc Datei!!!!

Gruss Thomas

[Rolf Ramacher]

Hi Thomas,

das habe ich gemacht und die entsprechende PRG verändert, da die dann die doc-Datei erzeugt.

[Muecke]

Rolf,
Ist es möglich mir mal dein Code zu senden mit der printerauswahl ?

Gruss Thomas

[brandelh]

Hallo,

also ich habe mal eben in Word ein 5 Seitendokument erstellt.
Dann mit dem Word Druckdialog die Seiten 1,3-4 gedruckt (auf ImageWriter) und es hat funktioniert.

Das Ganze habe ich als Macro aufgenommen und hier sieht man das Ergebnis:

Code: Alles auswählen

ActivePrinter = "Microsoft Office Document Image Writer"
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="1,3-4", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Word erwartet als Seitenauswahl - wie von mir vermutet - einen String:

Code: Alles auswählen

Pages:="1,3-4"

Diesen muss man nun nur von Xbase++ an das Word-objekt richtig übergeben,
Viel Glück

PS: mit dem DOC oder DOT als solchem hat das ganze wahrscheinlich nichts zu tun.
Die Druckseitenvorgabe bezieht sich immer auf den aktuellen Ausdruck ... vermute ich jetzt mal.

[Muecke]

Hallo Hubert,
geht wie du im Beispiel aufgezeigt hast natürlich auch.

Code: Alles auswählen

 wdPrintRangeOfPages := 4
          wdPrintDocumentContent := 0
        oDoc:PrintOut(lBackground,NIL,wdPrintRangeOfPages ,NIL,NIL,NIL,wdPrintDocumentContent,nCopies,"2-4")  

So kann ich Seite 2-4 drucken.
Vielleicht hat Rolf so mehr erfolg !!

Gruss Thomas

[Rolf Ramacher]

Hi,

leider funkt. das auch nicht. so sieht der Code aus

Code: Alles auswählen

aSeite:=oDlg:pageRangeSelected
oDoc:PrintOut(.f.,Nil,aSeite[2],Nil,Nil,Nil,0,1,str(aSeite[1])+"-"+str(aSeite[2]))

es werden immer noch alle Seiten gedruckt. Ich ahbe mal als Beispiel 2-4 ausgewähtl - das funz. aber warum alle anderen Angaben nicht z.B. 60-65

[AUGE_OHR]

moin

leider funkt. das auch nicht. so sieht der Code aus

Code: Alles auswählen

aSeite:=oDlg:pageRangeSelected
oDoc:PrintOut(.f.,Nil,aSeite[2],Nil,Nil,Nil,0,1,str(aSeite[1])+"-"+str(aSeite[2]))

es werden immer noch alle Seiten gedruckt. Ich ahbe mal als Beispiel 2-4 ausgewähtl - das funz.

also funktioniert es doch !!!

aber warum alle anderen Angaben nicht z.B. 60-65

siehe dir doch mal deinen Code genauer an was bei 60-65 passiert ...

Code: Alles auswählen

aSeite[1] := 60
aSeite[2] := 65
oDoc:PrintOut(.f.,Nil,aSeite[2],Nil,Nil,Nil,0,1,str(aSeite[1])+"-"+str(aSeite[2]))
oDoc:PrintOut(.f.,Nil,       65,Nil,Nil,Nil,0,1,str(60)       +"-"+str(65))

[brandelh]

Hi,

ich denke Jimmy meint diesen Parameter hier wdPrintRangeOfPages den du mit der Seitennummer gleich setzt,
das dürfte aber eher die Einstellung der Radiobuttons aus dem Druckmenü sein.

Im Beispielordner von Excel ist eine Excel.INC, eine für Word gibt es nicht ... die hätte diesen Wert.
Die soll man aber mit dem einen Tool von Xbase++ erzeugen können ... ich habe mal bei PowerBasic geschnuppert
und bin fündig geworden:

Code: Alles auswählen

' WdPrintOutPages enumeration
%wdPrintAllPages = 0
%wdPrintOddPagesOnly = 1
%wdPrintEvenPagesOnly = 2

' WdPrintOutRange enumeration
%wdPrintAllDocument = 0
%wdPrintSelection = 1
%wdPrintCurrentPage = 2
%wdPrintFromTo = 3
%wdPrintRangeOfPages = 4

Jetzt wissen wir warum das eine druckte (du hast per Zufall die Seite 4 ausgewählt) und das andere nicht ...

Zu beachten scheint mir auch dieser Wert WdPrintOutPages enumeration
wenn man hier was falsches einstellt könnte sich das überschneiden.

[Muecke]

Ich bin immer noch der Meinung das der Code stimmen muss.

Code: Alles auswählen

wdPrintRangeOfPages := 4
          wdPrintDocumentContent := 0
        oDoc:PrintOut(lBackground,NIL,wdPrintRangeOfPages ,NIL,NIL,NIL,wdPrintDocumentContent,nCopies,"2-4")  

Was ist wenn du 60-65 hinschreibst was druckt er dann?

aSeite:=oDlg:pageRangeSelected
oDoc:PrintOut(.f.,Nil,aSeite[2],Nil,Nil,Nil,0,1,str(aSeite[1])+"-"+str(aSeite[2]))

aSeite[2]kann nicht stimmen in der Posi3.

Code: Alles auswählen

wdPrintRangeOfPages := 4
          wdPrintDocumentContent := 0
        oDoc:PrintOut(lBackground,NIL,wdPrintRangeOfPages ,NIL,NIL,NIL,wdPrintDocumentContent,nCopies,"60-65")  

Nimm nochmals den Code und mach mal !!!

Gruss Thomas

[Rolf Ramacher]

Hi,

für was steht den der 3. Parameter wdPrintFromTo ???

[Jan]

Rolf,

guckst Du hier: http://msdn.microsoft.com/de-de/library ... S.80).aspx

Jan

[Martin Altmann]

Hallo Jan,
ich habe Deinen link mal korrigiert, damit er auch funzt!
Einfach einfügen geht in dem Fall wegen der () nicht - also einfügen, als URL markieren und dort den selben erneut angeben:

Code: Alles auswählen

[url=http://msdn.microsoft.com/de-de/library/microsoft.office.tools.word.document.printout(VS.80).aspx]http://msdn.microsoft.com/de-de/library/microsoft.office.tools.word.document.printout(VS.80).aspx[/url]

Viele Grüße,
Martin

[Muecke]

Rolf,
vielleicht hilft dir das!!!

• Druckt das angegebene Dokument ganz oder teilweise.
  
  Ausdruck.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)
  Ausdruck Erforderlich. Ein Ausdruck, der eines der oben genannten Objekte zurückgibt.
  
  Background Variant optional. True, um das Makro fortzusetzen, während Microsoft Word das Dokument druckt.
  
  Append Variant optional. True, um das angegebene Dokument an den Dateinamen anzuhängen, der mit dem OutputFileName-Argument festgelegt wurde. False, um den Inhalt von OutputFileName zu überschreiben.
  
  Range Variant optional. Der Seitenbereich. Dies kann eine beliebige WdPrintOutRange-Konstante sein.
  
  wdPrintAllDocument
  wdPrintCurrentPage
  wdPrintFromTo
  wdPrintRangeOfPages
  wdPrintSelection
  
  OutputFileName Variant optional. Wenn True als Wert für PrintToFile festgelegt wurde, legt dieses Argument Pfad und Dateiname der Ausgabedatei fest.
  
  From Variant optional. Die Nummer der Startseite, wenn wdPrintFromTo als Wert für Range festgelegt wurde.
  
  To Variant optional. Die Nummer der letzten Seite, wenn wdPrintFromTo als Wert für Range festgelegt wurde.
  
  Item Variant optional. Das zu druckende Element. Dies kann eine beliebige WdPrintOutItem-Konstante sein.
  
  wdPrintAutoTextEntries
  wdPrintComments
  wdPrintDocumentContent
  wdPrintDocumentWithMarkup
  wdPrintEnvelope
  wdPrintKeyAssignments
  wdPrintMarkup
  wdPrintProperties
  wdPrintStyles
  
  Copies Variant optional. Anzahl der zu druckenden Exemplare.
  
  Pages Variant optional. Die zu druckenden Seitenzahlen und Druckbereiche, durch Kommas getrennt. Beispielsweise druckt "2, 6-10" die Seite 2 und die Seiten 6 bis 10.
  
  PageType Variant optional. Typ der zu druckenden Seiten. Dies kann eine beliebige WdPrintOutPages-Konstante sein.
  
  wdPrintAllPages
  wdPrintEvenPagesOnly
  wdPrintOddPagesOnly
  
  PrintToFile Variant optional. True, um die Druckeranweisungen in eine Datei zu schreiben. Stellen Sie sicher, dass ein Dateiname mit OutputFileName festgelegt wird.
  
  Collate Variant optional. Beim Drucken von mehreren Exemplaren eines Dokuments werden bei True alle Seiten des Dokuments gedruckt, bevor mit dem Drucken des nächsten Exemplars begonnen wird.
  
  FileName Variant optional. Der Pfad und Dateiname des zu druckenden Dokuments. Wird dieses Argument ausgelassen, druckt Word das aktive Dokument. Steht nur mit dem Application-Objekt zur Verfügung.
  
  ActivePrinterMacGX Variant optional. Dieses Argument ist nur in der Microsoft Office Macintosh Edition verfügbar. Zusätzliche Informationen über dieses Argument erhalten Sie in der Sprachverzeichnishilfe, die mit der Microsoft Office Macintosh Edition ausgeliefert wird.

Dies findest du im Office Visual Basic Hilfe PrintOut (Methode)

Gruss Thomas

[Muecke]

Hier noch die Werte,

// WdPrintOutRange
#define wdPrintAllDocument 0
#define wdPrintSelection 1
#define wdPrintCurrentPage 2
#define wdPrintFromTo 3
#define wdPrintRangeOfPages 4

// WdPrintOutItem
#define wdPrintDocumentContent 0
#define wdPrintProperties 1
#define wdPrintComments 2
#define wdPrintMarkup 2
#define wdPrintStyles 3
#define wdPrintAutoTextEntries 4
#define wdPrintKeyAssignments 5
#define wdPrintEnvelope 6
#define wdPrintDocumentWithMarkup 7

// WdPrintOutPages
#define wdPrintAllPages 0
#define wdPrintOddPagesOnly 1
#define wdPrintEvenPagesOnly 2

Thomas

[Rolf Ramacher]

Hallo Thomas

danke für die Info. Da werde ich mich mal durcharbeiten.

[Jan]

Hallo Martin,

Danke für das herumpfuschen in meiner Privatpost Hatte garnicht gemerkt, daß der Link verstümmelt reinkopiert worden war.

Jan

[Rolf Ramacher]

Hallo zusammen,

jetzt habe ich es - funkt.. so

Code: Alles auswählen

#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#include "xbpdev.ch"
#include "activex.ch"
#include "xbpdev.ch"

#define wdPrintFromTo 3

#pragma Library( "XppUI2.lib" ) 
#pragma library( "ascom10.lib" ) 

Function Drucken( cDoc, cDrucker,oDlg) 
Local cActivePrinter, aSeite:={}
Local oWord 
Local oDoc 

    oWord := CreateObject("Word.Application") 

   IF Empty( oWord ) 
     MsgBox( "Microsoft Word ist nicht installiert" ) 
     RETURN Nil
   ENDIF 

   oWord:visible   := .f.                               // Word unsichtbar! 
   cActivePrinter  := oWord:Activeprinter     // aktuellen Drucker feststellen 
   oWord:Activeprinter:= cDrucker               // Neuen Drucker setzen 
   oWord:documents:Open(cDoc)                  
   oDoc       := oWord:ActiveDocument 

	If AT("filbestandliste.rtf",cDoc) > 0
		aSeite:=oDlg:pageRangeSelected
		oDoc:PrintOut(.f.,Nil,wdPrintFromTo,Nil,alltrim(str(aSeite[1])),alltrim(str(aSeite[2])),Nil,1 )
	Else
	   oDoc:PrintOut(.f.)    
	EndIf                    
   oWord:Activeprinter:= cActivePrinter       // alten Drucker setzen 
   oDoc:close() 
   oWord:Quit() 
   oWord:destroy() 
   oWord := NIL 
Return ( NIL )

[Muecke]

Rolf,
Das freut mich für dich !! =D>
Was war die Ursache? War es der string für die For -To

Gruss Thomas

[Rolf Ramacher]

Hi Thomas,

es war:

wdPrintFromTo 3

und alltrim(str(aSeite[1]))

[Rolf Ramacher]

Hallo zusammen,

dieses Problem ist zwar erledigt, aber ich habe ein neues mit einer anderen Liste, aber gleicher vorgehensweise - Drucken über Word.

Bei einer Kunden ist ein Programm installiert, welches Bestellungen in einem Xbpbrowse anzeigt. Hierbei gibt es einen Pushbutton zum Drucken. Bei mir klappt alles hervorragend. Aber bei hier hängt sich der PC nach Auswahl des Druckers auf.

XP mit SP1
Office wurde bereits deinstalliert und wieder installiert - m.E. Version 2000 .

Hat jemand noch eine Idee ?? - Druckertreiber ? Es wurde der mitgelieferte installiert.

[Muecke]

Rolf,

was kommt für eine Fehlermeldung.

Gruss Thomas

[Rolf Ramacher]

Hallo Thomas.

es kommt gar keine Fehlermeldung. Der Rechner "friert ein". Kein Taskmanager nix mehr. Bei Neustart wird dann irgendwann die Bestellung gedruckt.

[brandelh]

Hi,

könnte es sein, dass Word 2000 kein ActiveX unterstützt ?

[Muecke]

Ich bin mir auch nicht sicher ob dies unter Word2000 läuft.
Schau mal in der Hilfedatei ob diese funktionen Unterstützt werden!!

Gruss Thomas

PS: Sorry hab kein Win2000 mehr.Zu alt für gewisse Anwendungen.