---

Hvilken kommando skal man bruge for at få VB4 til at udskrive en tekstfil?

Anders

---

> Hvilken kommando skal man bruge for at få VB4 til at udskrive en tekstfil?
>
open [filnavn] for output as #1
print #1, "hvad der nu skal skrives"
close #1

Bent

---

Jeg mente ikke udskrive til en tekstfil, men til printeren.
Det gør den kode ikke.

Canabeia <canabeia@koebenhavn.mail.telia.com> skrev i en
nyhedsmeddelelse:yMzV5.3417$_t3.332139@news101.telia.com...
> > Hvilken kommando skal man bruge for at få VB4 til at udskrive en
tekstfil?
> >
> open [filnavn] for output as #1
> print #1, "hvad der nu skal skrives"
> close #1
>
> Bent
>
>

---

Prøv med:


Dim sLine As String
Dim FileName As String
FileName = "C:\JegVilGodtSkrivsUdFil.Txt"

Open FileName For Input As #1

While Not EOF(1)
Line Input #1, sLine
Printer.Print sLine
Wend

Printer.EndDoc

Close #1


MVH
Niels

---

"Niels G" <ng@kmd.dk> skrev i melding news:907p5i$4nt$1@news.inet.tele.dk...
> Prøv med:
>
>
> Dim sLine As String
> Dim FileName As String
> FileName = "C:\JegVilGodtSkrivsUdFil.Txt"
>
> Open FileName For Input As #1
>
> While Not EOF(1)
> Line Input #1, sLine
> Printer.Print sLine
> Wend
>
> Printer.EndDoc
>
> Close #1
>

Evt. legg inn en teller som teller opp linjer printet
for å kunne foreta sideskift på en litt mere kontrollert måte.

F.eks. inne i While/Wend rutinen;
antLinjer = antLinjer + 1
If antLinjer = 66 Then
Printer.NewPage
antLinjer = 0
End if

Mvh,

Helge