Ausdrucken mehrer Seiten
Verfasst: 22.01.2010 18:19
Hallo Leute am Freiteg !!
ich hab seit V 4.40 unter Suse 11.2 ein problem mit dem Ausdruck, aber auch nur mit diesem, alle anderen Funktionieren !!?????
Aus einem Menue rufe ich eine Subrutine >Druck5< auf , darauf startet derDruck korrekt, bei einem Mehrseitigen Druck wechselt er aber die Druckrichtung.... also erste Seite Kopf vorraus, zweite seite fuss vorraus, Dritte seite wieder Kopf vorraus.....
Ich komm nich dahinter woran das liegt, unten der Code für den ausdruck der dann wiederum in Subs verweist die die Inhalte Drucken.
Vielleicht weis mal jemand rat oder Lösungsansätze..
Danke Leute und trotzdem ein Happy Weekend
Codetags hinzugefügt - Andesdaf
ich hab seit V 4.40 unter Suse 11.2 ein problem mit dem Ausdruck, aber auch nur mit diesem, alle anderen Funktionieren !!?????
Aus einem Menue rufe ich eine Subrutine >Druck5< auf , darauf startet derDruck korrekt, bei einem Mehrseitigen Druck wechselt er aber die Druckrichtung.... also erste Seite Kopf vorraus, zweite seite fuss vorraus, Dritte seite wieder Kopf vorraus.....
Ich komm nich dahinter woran das liegt, unten der Code für den ausdruck der dann wiederum in Subs verweist die die Inhalte Drucken.
Vielleicht weis mal jemand rat oder Lösungsansätze..
Danke Leute und trotzdem ein Happy Weekend
Code: Alles auswählen
Druck5:
If DefaultPrinter()
If StartPrinting("Angebot")
If StartDrawing(PrinterOutput())
BackColor($FFFFFF) ;Hintergrund Weis
FrontColor($000000) ;Schrift Schwarz
Gosub DruckPos
Gosub VariablenNull
Gosub Adresse
Gosub Seite
Gosub VorText
For ZeilePo = 1 To DSPo
If Trim(Po(ZeilePo)\DsKombi) = Trim(P(Zeile)\DsNr) ;Position gleich Projekt
TitelVergleich.s = Po(ZeilePo)\F2 ;Titelvergleich setzen
;Vorberechnen ob noch eine POs auf die Seite geht
Gosub ZwischenSumme
Gosub Titel
Gosub Positionen
If S + 7 >= SZA.l
Gosub NeueSeite
Gosub Adresse
Gosub Seite
EndIf
EndIf
Next
TitelVergleich.s = "Fertig" ;letztmalig Zwischensumme Drucken
Gosub ZwischenSumme
Gosub EndSumme
Gosub NachText
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf
Return
)
!!
