deine Änderungen sind ja ganz nett.
Es wird dadurch aber nichts am bestehenden Problem gelöst.
Diese Formel wirft doch trotzdem den Fehler bei den Schriftarten.
Text_width.d = VectorTextWidth(Text()\Text) ;Die Textgrößen bleiben doch trotzdem größer.
Text_height.d = VectorTextHeight(Text()\Text)
Text()\Text_PosX + Text_width.d > *Printer\Page_width - *Printer\Right_edge
.................
Was du machen könntest:
-> Wenn die Textgröße größer als die Barcodegröße ist sollte automatisch eine kleinere Schriftart gewählt werden.
(Bis die Textbreite den Barcode nicht mehr überschreitet. Die Texthöhe sollte dabei proportional angepasst werden.)
Alles andere ist zwar ganz nett, bringt aber hier überhaupt nichts.
.....
Code: Alles auswählen
;********************************************************************************************************************
; Barcode Drucken Ende *
;********************************************************************************************************************
Next
;********************************************************************************************************************
; Texte drucken *
;********************************************************************************************************************
ForEach Text()
;Zeichensatz für Text_Line laden und Text zeichnen
If Text()\Font <> ""
Text_Font.i = LoadFont(#PB_Any, Text()\Font, Text()\Font_Size, Text()\Text_Style) ;Hier sollte etwas geändert werden.
If Text_Font.i = 0
ProcedureReturn 17
EndIf
Text_FontID.i = FontID(Text_Font.i)
EndIf