English
Forum

Problem Print - NextPage

 

Torsten
Rümker
Hello, to längerer Time has time again something yield, for the I NEN small Program write would like, and nu stolpere I over the Print out of/ one Textdatei.

two Codes, once as procedure, once stood-alone sozusagen.
The procedure fail ex the second Page, the stood-alone code skin The complete File through alike How long she's.

has someone a idea, I wrong make?
Proc Tabelle_drucken

    DECLARE Randlinks%
    DECLARE row%
    DECLARE Text$
    LET Randlinks% = 20
    LET row% = 24
    Reset #1
    StartPrint *scheduler

    If %Printing

        DrawText Randlinks%, row%, scheduler
        INPUT #1, Text$

        WhileNot @EoF(#1)

            If row% >= 888

                LET row% = 24
                NextPage
                DrawText Randlinks%, row%, scheduler

            EndIf

            LET row% = row% + 24
            DrawText Randlinks%, row%, @SubStr$(Text$, 1, ;)
            LET row% = row% + 24
            DrawText Randlinks%, row%, @SubStr$(Text$, 2, ;)
            LET row% = row% + 24
            DrawText Randlinks%, row%, @SubStr$(Text$, 5, ;)
            LET row% = row% + 24
            DrawText Randlinks%, row%, ---------------------------------------------
            INPUT #1, Text$

        EndWhile

    EndIf

    EndPrint

ENDPROC


DECLARE Randlinks%
DECLARE row%
DECLARE Text$
LET Randlinks% = 20
LET row% = 24
Assign #1, data.csv
Reset #1
StartPrint *scheduler

If %Printing

    DrawText Randlinks%, row%, scheduler
    INPUT #1, Text$

    WhileNot @EoF(#1)

        If row% >= 888

            LET row% = 24
            NextPage
            DrawText Randlinks%, row%, scheduler

        EndIf

        LET row% = row% + 24
        DrawText Randlinks%, row%, @SubStr$(Text$, 1, ;)
        LET row% = row% + 24
        DrawText Randlinks%, row%, @SubStr$(Text$, 2, ;)
        LET row% = row% + 24
        DrawText Randlinks%, row%, @SubStr$(Text$, 5, ;)
        LET row% = row% + 24
        DrawText Randlinks%, row%, ---------------------------------------------
        INPUT #1, Text$

    EndWhile

EndIf

EndPrint
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
04/21/08  
 




H.Brill
Hi,
might evtl. on it lying :

1.) in Proc missing the
Assign #1, data.csv

2.) and schließe too always to term the
Loop The File.

Perhaps are it these Kleinigkeiten, The these Nebeneffekte
. Trigger
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
04/21/08  
 




E.T.
Hello Torsten,

Have now time with your Proc-code a little bit rumprobiert
(naturally to insert the of H.Brill named things Assign and Close).

Have then time ne Loop built, circa your Proc number of times one after another
aufzurufen (always with the same File).
Sometime have I then as a last whom printer-dialog seen, with klick on OK
there were a kompletten system-Neustart. the should then on the place been
his, where %Printing quizzed becomes.

but as long as everything durchlief, was the expression always correctly..

Have the same with your stood-Alone-Version made, is 25times without Problems
durchgelaufen.

Habs with lokalem printer (naturally off, so the everything in the Warteschlange
alights) as well as with Adobe-pdf-printer probiert, always the same.

Solltes with %Printing zusammenhängen ?? though, then ought to the Error indeed in the stood-Alone-Version appear .
or one appeal in the Proc, the simply To quick durchläuft ?? but through * in the Startprint
becomes Yes really enough waited...

or Have I time on Abrechen clicked and the system has The Var on 0 staid, what Yes The If-Loop to mix up could , if the printer still active is? mandatory I me same tommorrow once more standing and by the head weg
let....

time to wait it out, what it yet for opinions gives....

Mario
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
04/22/08  
 




Torsten
Rümker
The File by Assign becomes in a own procedure set (Open File dialog)

the The File closed go must end is correct naturally, the have I Schonmal changed.

unfortunately no improvement,

is really very strange, The first Page becomes correctly printed, ex the second comes instead of the Content only another couple Striche, about so:
_
__
_
_
----------------------------------

and the then for each entry the really printed go ought to.

I tüftel time yourself too yet moreover, time see whether I it yet herausbekomme.

MfG
Torsten
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
04/23/08  
 




Peter
Max
Müller
Hi,
without it now tested to have:
look time whether the helps:
[web]https://www.rgh-soft.de/forum01/read.php?f=7&i=4280&t=4280[/web]
Greeting
 
XProfan X3, X4ß, Win 10.1
04/23/08  
 




Torsten
Rümker
Yes
very on it has it lain!

OK, I thanks vielmals, then can I Yes now finally whom expression ready make.

MfG
Torsten Rümker
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
04/23/08  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

11.696 Views

Untitledvor 0 min.
rquindt05/30/20
Wilfried06/15/16
Peter Max Müller12/06/15
Pauli07/30/13
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie