ich übergeben eine RTF-Datei zum Druck an Word und gebe den Seitenbereich vor:
Code: Alles auswählen
oDlg:pageRange := {1,99 }
aber trotzdem werden immer alle Seiten gedruckt. Egal auf welchem Drucker - warum ??
Moderator: Moderatoren
Code: Alles auswählen
oDlg:pageRange := {1,99 }
Code: Alles auswählen
oDlg := XbpPrintDialog():new()
// Druckausgabe nicht standardmäßig in Datei umleiten
oDlg:enablePrintToFile := .f.
oDlg:printToFile := .f.
oDlg:pageRange := {1,99 }
oDlg:create()
// Konfiguriertes Drucker Objekt erzeugen
oPrinter := oDlg:display()
* oDlg:destroy()
IF oPrinter <> NIL
cPrinter:=oPrinter:DevName
msgbox(var2lchar(oDlg:pagerange))
Drucken(cVerz+"\filbestandliste.rtf",cPrinter)
EndIf
IMHO ist :pageRange die "vorbelegung" welche dann im :display() angezeigt wird. Dies bedeutetRolf Ramacher hat geschrieben:bei der msgbox erscheint immer noch meine Vorgabe. Wie kann ich die Eingabe des Benutzers abfragen und dann diese--Code: Alles auswählen
oDlg := XbpPrintDialog():new() // Druckausgabe nicht standardmäßig in Datei umleiten oDlg:enablePrintToFile := .f. oDlg:printToFile := .f. oDlg:pageRange := {1,99 } oDlg:create() // Konfiguriertes Drucker Objekt erzeugen oPrinter := oDlg:display() * oDlg:destroy() IF oPrinter <> NIL cPrinter:=oPrinter:DevName msgbox(var2lchar(oDlg:pagerange)) Drucken(cVerz+"\filbestandliste.rtf",cPrinter) EndIf
Info an den Drucker übergeben. Unter Rubrik "aktive-X" habe ich nichts gefunden.
Code: Alles auswählen
oDlg := XbpPrintDialog():new()
// Druckausgabe nicht standardmäßig in Datei umleiten
oDlg:enablePrintToFile := .f.
oDlg:printToFile := .f.
oDlg:pageRange := {1,99 }
oDlg:create()
// Konfiguriertes Drucker Objekt erzeugen
oPrinter := oDlg:display()
* oDlg:destroy()
IF oPrinter <> NIL
cPrinter:=oPrinter:DevName
oDlg:PageRangeSelected
Drucken(cVerz+"\filbestandliste.rtf",cPrinter,oDlg)
EndIf
Code: Alles auswählen
include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#include "xbpdev.ch"
#pragma Library( "XppUI2.lib" )
#pragma library( "ascom10.lib" )
Function Drucken( cDoc, cDrucker,oDlg)
Local cActivePrinter
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
oDlg:PageRangeSelected
oDlg:PrintRange:=(XBPPDLG_PRINT_PAGERANGE)
EndIf
oDoc:PrintOut(.f.) // .T.= Druck im Hintergrund
oWord:Activeprinter:= cActivePrinter // alten Drucker setzen
oDoc:close()
oWord:Quit()
oWord:destroy()
oWord := NIL
Return ( NIL )
Code: Alles auswählen
-----------------------------------------------------------------------------
FEHLERPROTOKOLL von "C:\orga\FilBestand.exe" Datum: 27.02.2009 16:01:18
Xbase++ Version : Xbase++ (R) Version 1.90.331
Betriebssystem : Windows 95 04.00 Build 00950
------------------------------------------------------------------------------
oError:args :
-> VALTYPE: C VALUE: visible
-> VALTYPE: L VALUE: .F.
oError:canDefault : J
oError:canRetry : N
oError:canSubstitute: J
oError:cargo : NIL
oError:description : Der RPC-Server ist nicht verfügbar.
oError:filename : NIL
oError:genCode : NIL
oError:operation : visible
oError:osCode : -2147023174
oError:severity : 2
oError:subCode : 6500
oError:subSystem : Automation
oError:thread : 1
oError:tries : NIL
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from DRUCKEN(23)
Called from LISTEDRUCKEN(34)
Called from (B)MAIN(48)
Called from MAIN(62)
Windows 95 04.00 Build 00950Rolf Ramacher hat geschrieben: Hier die xpperror.logBei mir klappt dies ohne Probleme.Code: Alles auswählen
----------------------------------------------------------------------------- FEHLERPROTOKOLL von "C:\orga\FilBestand.exe" Datum: 27.02.2009 16:01:18 Xbase++ Version : Xbase++ (R) Version 1.90.331 Betriebssystem : Windows 95 04.00 Build 00950