🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: z-netz.sprachen.basic
Article #24

Re: ? VB zeilenweise drucken

#24
From: papa
Date: Mon, 08 Sep 1997 00:00
57 lines
2291 bytes
Steffen Peter wrote:
> 
> Bertram (RITEX@CHESSY.AWORLD.DE) wrote:
> : HJ.Noack@t-online.de (Hans-Juergen Noack)  wrote:
> :
> : HJN> ich m�chte aus einem VB-Programm heraus Me�werte auf einem Drucker
> : HJN> protokollieren. Dies gelingt mir nur seitenweise. Ich m�chte aber
> : HJN> immer nur eine Zeile drucken. Wer hat das schon mal hinbekommen?
> :
> : �ber das Printer.Objekt??? Alle Werte in einen Stringen packen und dann
> : ausdrucken?
> 
> Wird der Druck nicht erst dann gestartet, wenn EndDocument aufgerufen wird?
> 
> Tschau
> steffen
> 
> --
> > Problem: Ist eine solche Gruppe CfV-faehig?
> 'tuerlich. Da stimmen doch sowieso immer dieselben Leute ab und die machen
> alles mit, wenn nur der Name stimmt. Notfalls koennte man ein paar im Netz
> weniger beliebte Leute gegen die Gruppe aufhetzen. Dann ist das Restnetz auf
> jeden Fall dafuer.
>                 Sven Tuerpe in de.talk.bizarre, de.admin.news.groups


in meinen guten alten Basic-zeiten reichte es folgendes prg. zu
schreiben.

open "list.txt" for output as #1  ' bei prg.-start
close 1

open "list.txt" for append as #1
print #1, messergebnis
close 1


sub ausdruck()
 open "list.txt" for input as #1
 while not eof(1)
   line input #1,druck$
   printer.print druck$
 loop
 close 1
 printer.enddoc

obiges prg. schreib die messergebnisse zwar erst auf die platte.
ist aber erstens sicherer, 2 schneller, und drittens bleibt bis zum
Ausdruck der Druckmanager frei. (f�r andere ausdrucke)
jedere andere art blockiert bis zum befehl "printer.enddoc" den drucker

hoffe geholfen zu haben

  bis denn
    A.Kowalski
    PAPA@wad.org
Technical Details
Message-ID: <34143B31.6A47@wad.org>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <5u4ehm$el$1@news00.btx.dtag.de> <6d6ZK$dMIMB@ritex.chessy.AWORLD.DE> <5uud86$1id@schacht.jena.thur.de>

Show Full Headers
Complete Article Headers
X-Google-Language: GERMAN,ASCII
X-Google-Thread: 10f372,998e5a0bf7f15745
X-Google-Attributes: gid10f372,public
X-Google-Thread: f7aba,998e5a0bf7f15745
X-Google-Attributes: gidf7aba,public
X-Google-Thread: 112458,998e5a0bf7f15745
X-Google-Attributes: gid112458,public
From: "papa@wad.org" <papa@wad.org>
Subject: Re: ? VB zeilenweise drucken
Date: 1997/09/08
Message-ID: <34143B31.6A47@wad.org>
X-Deja-AN: 270869798
References: <5u4ehm$el$1@news00.btx.dtag.de>  <6d6ZK$dMIMB@ritex.chessy.AWORLD.DE> <5uud86$1id@schacht.jena.thur.de>
Newsgroups: z-netz.sprachen.basic,de.comp.lang.misc,fido.ger.basic