Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://www.xbaseforum.de/
fragst du vor o:StartDoc() den o:PrinterStatus() ab ?Jan hat geschrieben:Ich habe gerade ein merkwürdiges Phänomen: Ich drucke ein Dokument. Klappt super. Aber im Moment arbeite ich in einem Netzwerk, da hält der an der Zeile oDrucker:startDoc() minutenlang an. Woran kann das liegen? Der Ausdruck selber ist danach vollkommen OK.
Code: Alles auswählen
oDC := oPrinter:device()
nStatus := oDC:PrinterStatus()das würde bei der Lösung des Problems helfen.Jan hat geschrieben:das habe ich nicht abgegefragt.
also passiert es "nur" bei der Xbase++ Applikation und "nur" bei Netzwerk Druckern und der o:PrinterStatus() ist -2 ?Jan hat geschrieben:Aber: Ich tippe darauf, das es das nicht ist. Das gleiche Problem habe ich von zwei verschiedenen Rechnern aus auf zwei verschiedene Drucker. Und andere Dokumende werde auf diese beiden Drucker sauber (soll heißen: flott) ausgegeben.
Code: Alles auswählen
oDlgPrint := XbpPrintDialog():new()
oDlgPrint:create()
oDrucker := oDlgPrint:display()
IF oDrucker == NIL
MasgBox(Kein Drucker ausgewählt", "Achtung")
RETURN NIL
ENDIF
// Neuen Presentation-Space erzeugen
oPS := XbpPresSpace():new()
// Bedruckbarer Bereich auf dem Papier
aSize := oDrucker:paperSize()
nRandOben := aSize[4]
nRandLinks := IIf(aSize[3] < 0.5, 0.5, aSize[3])
aSize := {aSize[5] - aSize[3], aSize[6] - aSize[4]}
oPS:create(oDrucker, aSize, GRA_PU_LOMETRIC + GRA_PO_TOPLEFT)
// Schriftattribut
aAttrString := Array(GRA_AS_COUNT) // Schriftttribut bestimmen
aAttrStringOld := GraSetAttrString(oPs, aAttrString)
// Schrift wählen
oFont := xbpFont():new(oPs)
oFont:FamilyName := "Arial"
oFont:nominalPointSize := 12
oFont:create()
GraSetFont(oPs, oFont)
nFontHeight := oPS:setFont():height // Schrifthöhe für "Zeilenvorschub" feststellen
// Hierfür der 2. Papierschacht
oDrucker:setPaperBin(1)
// Und los gehts mit dem Ausdruck
oDrucker:startDoc("Angebot")
wenn du die selben Routinen in anderen Xbase++ Programme auf dem selben PC / Drucker verwendest und die da funktionieren muss es ein anderes Problem sein.Jan hat geschrieben:Andere Xbase++-Programme drucken anstandslos.
hätte ich sonst vorgeschlagen um zu sehen ob das o:create() erfolgreich war.Jan hat geschrieben:Auch wenn ich den Druckerdialog weglasse und sofort das Druckerobjekt erstelle, ändert das nichts.
Code: Alles auswählen
FUNCTION PRINTERPS( cPrinter, nCopies, nPaperBin )
LOCAL oDC := XbpPrinter():New()
LOCAL aPrint := oDC:list()
BEGIN SEQUENCE
IF cPrinter != NIL // if NIL use Windows default?
cPrinter := SearchPrinter( aPrint,cPrinter )
ENDIF
IF oDC:Create( cPrinter ) == oDC // = self
ELSE
MsgBox( "! Drucker ist Offline !" )
BREAK // raus
ENDIF
nStatus := oDC:PrinterStatus()es gab im Alaska Forum mal eine langen Thread mit o:PrinterStatus() von Netzwerk Druckern ...Jan hat geschrieben:Wie gesagt, ob die Rückgabe wirklich -2 ist kann ich nicht sagen, und kann ich aucherst kommende Woche herausfinden, wenn ich wieder beim Kunden bin.
em ... äh ... hast du den Code verändert ? stand da nicht vorher XbpPrinter() statt XbpPrinterDialog() ?Jan hat geschrieben:Code: Alles auswählen
oDlgPrint := XbpPrintDialog():new() oDlgPrint:create() oDrucker := oDlgPrint:display()
... so würde die Aussage ja keinen Sinn mehr machenJan hat geschrieben:Auch wenn ich den Druckerdialog weglasse und sofort das Druckerobjekt erstelle, ändert das nichts.
aperBin() raus nehme, dann bringt das nichts. Hatte ich gestern auch schon probiert.mich wundert das o:setPaperBin(1) bei dir funktioniert ... welcher Schacht soll den das sein ?Jan hat geschrieben: auch wenn ich den
Tom hat geschrieben:ProcMon von SysInternals einklinken und beobachten, was geschieht:
http://technet.microsoft.com/en-us/sysi ... s/bb842062
wenn der Windows Spooler aktiv ist (also genutzt wird, man kann ja auch direkt drucken), dann wird eine Spooldatei im Filesystem erzeugt, die dann zum Drucker geht. Die muss man übrigens auch hart im Filesystem löschen, wenn man einen blockierenden Druckjob hat den man auch nicht mehr über die GUI aus der Queue gelöscht bekommt.Jan hat geschrieben:Warum aber gerade der :startDoc() das ausgelöst haben soll ...
Alle Virenscanner sind, mit Verlaub, scheiße. Mit Streubomben wird auf Ameisen geschossen. Was dafür gedacht ist, vom extrem unvorsichtigen Internetdaddler bis hin zum Office-Arbeitsplatz alles zu schützen, erzeugt im Ergebnis jede Menge Fehlalarme - und bremst vor allem dateibasierte Datenbanksysteme, aber eben auch Applikationen, die viele Dateien bewegen/generieren, hoffnungslos aus. Ich hatte gerade auch wieder so ein Telefonat, in dem ich einem EDV-Beauftragten erklären musste, warum der Kaspersky in der Standardversion (On-Demand-Scan sämtlicher Daten) dafür sorgt, dass a) der Datenzugriff ausgebremst wird und es b) aufgrund der kaskadierenden Scans sogar zu Timeouts und Datenfehlern kommt. Avira mit seiner beschissenen Heuristik ist ein Thema für sich. Leider gibt es so gut wie keine Möglichkeit, Virenscanner aus der Applikation heraus zu manipulieren (das könnten die Viren dann schließlich auch), so dass wir inzwischen Merkblätter und Handlungsanweisungen verteilen, die mindestens unsere Daten aus dem Scanprozess ausblenden, im Optimalfall aber dafür sorgen, dass tatsächlich nur noch untersucht wird, was auch gefährlich werden kann. Virenscanner in der Standardinstallation kann man damit vergleichen, dass ein Neuwagen nicht mehr alle 20.000 km in die Werkstatt zur Wartung kommt, sondern dass bei jedem Anfahrvorgang Mechaniker herbeispringen und das Auto auf Herz und Nieren untersuchen. Dass man auf diese Weise nicht mehr vorankommt, dürfte eigentlich jedem klar sein.Gerade Panda scheint da Probleme mit zu haben.