| |
|
|
Walter Meidl | nachfolgend ein Beispieltext circa mehr als nur eine Seite.
wie kann ich den text komplett drucken. mit StartPrint, bzw. EndPrint wird nur eine Seite gedruckt. ein NextPage zieht per jede zeile ein neues Blatt ein.
Für eure Aiuto wäre ich sehr Dankbar
Walter Meidl
WM9999 erstellt am: 21.06.2007 ==========================
*** ACHTUNG !!! PRISMA - AUFNAHME *** =====================================
M9999B1.EX1 --> B - Bohrprogramm ================================= T01 Durchmesser 0.20 4222 T02 Durchmesser 0.40 216 T03 Durchmesser 0.65 76 T04 Durchmesser 0.80 118 T05 Durchmesser 1.50 72 T06 Durchmesser 1.80 36 T07 Durchmesser 2.00 4 T08 Durchmesser 2.99 12 T09 Durchmesser 3.00 13 T10 Durchmesser 3.10 72
M9999B2.EX1 --> B - Bohrprogramm ================================= T01 Durchmesser 0.20 16200 T02 Durchmesser 0.40 720 T03 Durchmesser 0.80 216 T04 Durchmesser 0.85 144 T05 Durchmesser 1.15 144 T06 Durchmesser 1.50 216 T07 Durchmesser 1.80 216 T08 Durchmesser 3.10 72
M9999B3.EX1 --> B - Bohrprogramm ================================= T01 Durchmesser 0.20 16200 T02 Durchmesser 0.40 720 T03 Durchmesser 0.80 216 T04 Durchmesser 0.85 144 T05 Durchmesser 1.15 144 T06 Durchmesser 1.50 216 T07 Durchmesser 1.80 216 T08 Durchmesser 3.10 72
M9999F1.EX1 --> F - Fraesprogramm ================================== T01 Durchmesser 1.01 8.76 m T02 Durchmesser 0.61 0.66 m
M9999FL2.EX1 --> F - Fraesprogramm L - Lenz ============================================= T01 Durchmesser 0.50 1904 T02 Durchmesser 0.51 9.15 m
M9999F3.EX1 --> F - Fraesprogramm ================================== T01 Durchmesser 2.30 136 T02 Durchmesser 2.41 6.24 m
M9999D1.EX1 --> D - Deckfolie ============================== T01 Durchmesser 3.00 80 T02 Durchmesser 3.50 100 T03 Durchmesser 0.80 720 T04 Durchmesser 1.90 144 T05 Durchmesser 2.00 72
T06 Durchmesser 2.01 7.58 m
M9999PK1.EX1 --> P - Prepregaussparung K - Klein ================================================== T01 Durchmesser 3.00 11 T02 Durchmesser 1.01 8.65 m
M9999PG1.EX1 --> P - Prepregaussparung G - Gross ================================================== T01 Durchmesser 2.00 4 T02 Durchmesser 3.00 8 T03 Durchmesser 4.60 4 T04 Durchmesser 0.90 323 T05 Durchmesser 2.01 0.06 m T06 Durchmesser 1.01 9.84 m
M9999R1.EX1 --> R - Ritzung ---> VHF = M9999R11.DXF ==================================================== T01 Durchmesser 1.01 3.68 m
|
|
|
| |
|
|
|
| Zeig mal den Quelltext den Du zum Drucken nimmst - dann wird der fix umgeschrieben und es wird funktionieren.
Pro Zeile halt den Y Wert des Drawtext erhöhen - wenn Y an bestimmter Position: nextpage und y wieder auf (z.B.) 0 setzen. |
|
|
| |
|
|
|
Walter Meidl | Hallo iF, bitte verzeih, wenn ich Namen oder Anreden falsch verwende, aber ich bin neu im Xprofan Club. wäre schön wenn du mir helfen könntest.
nachfolgend der Programmteil den ich zum drucken verwenden wollte. Übrigens wird nach dem NextPage eine so kleine Schriftart verwendet, das man nur einen strich auf dem Papier sieht.
vielen dank im Voraus
Walter KompilierenMarkierenSeparierenliste betrachten
declare name_edit$, name_zeige$, zeile$, fenster_1&, fenster_2&
declare ende%, titel$, zeile%
zeile% = 20
proc drucken
startprint
assign #1, name_edit$
reset #1
whilenot @eof(#1)
input #1, zeile$
DrawText 10,zeile%,zeile$
zeile% = zeile% + 15
if zeile% > 500
nextpage
endif
wend
endprint
close #1
endproc
|
|
|
| |
|
|
|
| @Walter
Übrigens wird nach dem NextPage eine so kleine Schriftart verwendet, das man nur einen strich auf dem Papier sieht.
Du musst nach Startprint mit Usefont Schriftart,h%,b%,f%,k%,u% eine Schriftart festlegen und diese Angabe nach NextPage wiederholen. Vor NextPage il valore zeile%=20 wieder eintragen. Dann potrebbe es klappen. |
|
|
| |
|
|
|
| @Horst: Jupp!
@Walter: [tb]usecodetag[/tb]
Ich habe Dein obiges Posting dahingehend bearbeitet. |
|
|
| |
|
|