Πρόβλημα με εκτύπωση.

[TGeorge]

Αντιμετοπίζω ένα πρόβλημα με την εκτύπωση:

 
κώδικας VObjects 2.5:

METHOD PrintMyJob() CLASS WPrinting

//Εκτύπωση
LOCAL oPrinter AS PrintingDevice
LOCAL structDevMode AS _WINDEVMODE

oPrinter:=PrintingDevice{}
structDevMode.dmCopies:=oDCSingleLineEdit1:Value // Όρισμα για το πόσα αντίγραφα
IF oCCRadioButton1:Pressed
structDevMode.dmOrientation:=1 // Όρισμα για κατακόρυφη εκύπωση
ELSEIF oCCRadioButton2:Pressed
structDevMode.dmOrientation:=2 // Όρισμα για οριζόντια εκτύπωση
ENDIF
DO CASE
CASE oDCComboBox2:Value=="A3"
structDevMode.dmPaperSize:=8 //Όρισμα για Χαρτί Α3
CASE oDCComboBox2:Value=="A4"
structDevMode.dmPaperSize:=9 //Όρισμα για Χαρτί Α4
CASE oDCComboBox2:Value=="A5"
structDevMode.dmPaperSize:=11 //Όρισμα για Χαρτί Α5
CASE oDCComboBox2:Value=="B4"
structDevMode.dmPaperSize:=12 //Όρισμα για Χαρτί Β4
CASE oDCComboBox2:Value=="B5"
structDevMode.dmPaperSize:=13 //Όρισμα για Χαρτί Α5
ENDCASE
iSucess:=oPrinter:UpdateDevMode()
IF iSucess
Minima("Παρουσιάστηκε πρόβλημα με την εκτύπωση!!!") // συναρτηση που εμφανίζει το μυνημα λάθους
ELSE
oDCRichEdit1:Print(oPrinter)
ENDIF
oPrinter: Destroy()
SELF:EndDialog()

Το πρόβλημα είναι ότι το oPrinter:UpdateDevMode() αποτυγχάνει συνέχεια με αποτέλσεμα να πέρνει τα δικά του ορίσματα, δηλαδή να τυπώνει πάντα σε Α4,κατακόρυφη εκτύπωση και αντίγραφα 1.
Έχω τσεκάρει οτι τα ορίσματα του structure "structDevMode" περνάνε κανονικά στο oPrinter.
Επίσης το έχω τσεκάρει σε 3 διαφορετικούς εκτυπωτές και τα ίδια.
Μήπως μπορεί κάποιος να μου πει τι δεν κάνω σωστά;

Ευχαριστώ.