Printerrequester :: Hoch- / Querformat

[Mr.X]

Moin-moin,
ich habe folgendes Druck-Problem:

Ich habe ein Seitenlayout im Querformat. Nun möchte ich den Anwender nicht die Verantwortung übertragen für jeden Ausdruck seine Druckereinstellungen zu überprüfen, ob diese auch auf 'quer' stehen.

Ich möchte die Seitenausrichtung des (via PrinterRequester) angewählten Druckers prüfen und diese dann für einen Ausdruck auf 'quer' setzen und danach wieder zurück.

Es gibt hier im Forum Lösungsansätze dies über die API-Funktione zu machen, aber wenn ich die Druckereinrichtung über die APIs vornehme, kann ich folgenden die PB-Druckfunktionen nicht benutzen

Code: Alles auswählen

        StartPrinting("XXX")
        StartDrawing(PrinterOutput())
        DrawingMode(1)
        
        ;- Seite 1 :: Kopf
        If LoadImage(0, "_Logo.TIF")
            DrawImage(ImageID(), mm(207), mm(10))
        EndIf
        DrawingFont(UseFont(#TTF_Arial11B))
        Locate(mm(207), mm(37)) : DrawText("Liste ...:")
        tmpTXT$ = "KW 30 / 2005"
        Locate(mm(287)-TextLength(tmpTXT$), mm(37)) : DrawText(tmpTXT$)
:
:
        StopDrawing()
        StopPrinting()
  

Der obige Code produziert dann keine Ausgabe bzw. erzeugt eine Programm-Absturz.

Kennt das jemand eine Lösung?

Bis denne
Mr. X