Betriebssystemfehler Operation set aber nur unter Vista.

[brandelh]

Deine HBPrinter-Klasse wird mit dieser Erweiterung gerade für Leute mit viel alten Clipper-Code immer interessanter...
Ich bin auf jeden Fall sehr gespannt.

Hi,

ich habe die Version nun freigegeben, unten im Marktplatz gibt es nähere Infos.

[Josef Pittl]

ich kann hier keine Zeile
set printer to LPT1
finden

Diese einstellungen befinden sich ganz am Anfang des Programms.

Code: Alles auswählen

PROCEDURE Main
    REQUEST hvstamm, hvjor0, hvvor, hvjabr, hvsystem
    STATIC  soStatus            //Deninition für GetSys in HVSystem
    local nSel:=0
    local cObjekt:="000"
    local cDel:="N"
    local cOlddir:=""
    Parameters qpgmedit,PrintPort  // Berechtigungen
    PRIVATE qpgmedit,PrintPort,cFilekont,cFilejour,cFilekontvj,cFilejourvj
    private smal_ein
    private smal_aus
    private fett_ein
    private fett_aus
    private unts_ein
    private unts_aus
    private sch0  // Standardschacht fr Papierzufhrung
    private sch1  // Mehrzweckschacht (Korrespondenzpapier
    private Module:=space(10)
    #include "inkey.ch"
    #include "Directry.ch"
    #include "std.ch"
    #include "set.ch"
    **-------------------------------------------------------
    * Error Behandlung:
    *private bFehlerBehandlung,objfehler
    *bFehlerBehandlung:={|objfehler|Fehlerbehandlung(objFehler)}
    *errorblock(bFehlerBehandlung)
    * Fehlerbehandlung in HVSYSTEM.prg
    *----------------------------------------------------------
    SET DATE TO GERMAN
    SET EXACT ON
    SET DECIMALS TO 2
    SET CENTURY ON
    SET SCOREBOARD OFF
    SET WRAP ON
    SET SAFETY OFF
    SET DELIMITER OFF
    SET BELL OFF
    SET DELETE ON
    SET STATUS OFF
    * Xbase++ Error? SET HEADING OFF
    SET COLLATION TO GERMAN		//XBase++ Sortiereinstellung für Ingexdateien German
    SET TALK OFF
    SETCURSOR(3)
    setkey(K_CTRL_END,{|| hvdummy()})   && Neutralisieren Contrl. W
    setkey(K_PGUP,{|| hvdummy()})   && Neutralisieren Contrl. W
    setkey(K_PGDN,{|| hvdummy()})   && Neutralisieren Contrl. W
   
    // Die Variablen _function,_zeile,_Variable müssen gefüllt werden
    //
    //setkey(K_F1,{|| help(_function,_zeile,_Variable)})
    SetMouse( .T. )                //XBase++ Maussteuerung
    // Set Mouse(.T.) ausgeschaltet wegen Get bzw. ReadModal Problem??!

    // Druckausgabe  PrintPort
    IF PrintPort<>NIL
       Set(_SET_PRINTFILE,PrintPort)
    ENDIF

Das Programm stürzt ja auch nicht beim Befehl SET PRINTER TO ab sondern beim Befehl SET PRINT ON?
Unter Windows 2000 und XP funktioniert das einwandfrei?

[brandelh]

Hi,

auch unter Win2000 hatte ich mit set printer to und Netzwerkdruckern schon ab und zu Probleme.

Der einzig zukunftsträchtige Weg ist das Umstellen auf Windowsdruck !