| |
| |
|
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. |
|
| |
| |
| |
|
(721)
Deutsch
English
Français
Español
Italia