I am creating a text file using the following code:

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(FilePath & NameOfFile, True)

Now, in the new text file created, I want to insert page breaks.

What is the code to be written to have page breaks in the text file created?

- Murthy

It is ASCiII code SOH (Start of Header) which is CHR(1).

So either
a.write chr(1)

or

a.writeline chr(1)

"Murthy" wrote:

> I am creating a text file using the following code:
>
> Set fs = CreateObject("Scripting.FileSystemObject")
> Set a = fs.CreateTextFile(FilePath & NameOfFile, True)
>
> Now, in the new text file created, I want to insert page breaks.
>
> What is the code to be written to have page breaks in the text file created?
>
> - Murthy
>
>

Thanks.

Yes, chr(1) is writing something to the text file, but it really didn't
force a page break on a laser printer.

Still, I will test it on a line printer and get back.

Thanks for your help.



"Joel" wrote:

> It is ASCiII code SOH (Start of Header) which is CHR(1).
>
> So either
> a.write chr(1)
>
> or
>
> a.writeline chr(1)
>
> "Murthy" wrote:
>
> > I am creating a text file using the following code:
> >
> > Set fs = CreateObject("Scripting.FileSystemObject")
> > Set a = fs.CreateTextFile(FilePath & NameOfFile, True)
> >
> > Now, in the new text file created, I want to insert page breaks.
> >
> > What is the code to be written to have page breaks in the text file created?
> >
> > - Murthy
> >
> >

I thought formfeed was chr(12) (hex 0C).

I know that this worked on my old dot matrix printer from years ago--not sure if
it'll work with the OP's printer.

Joel wrote:
>
> It is ASCiII code SOH (Start of Header) which is CHR(1).
>
> So either
> a.write chr(1)
>
> or
>
> a.writeline chr(1)
>
> "Murthy" wrote:
>
> > I am creating a text file using the following code:
> >
> > Set fs = CreateObject("Scripting.FileSystemObject")
> > Set a = fs.CreateTextFile(FilePath & NameOfFile, True)
> >
> > Now, in the new text file created, I want to insert page breaks.
> >
> > What is the code to be written to have page breaks in the text file created?
> >
> > - Murthy
> >
> >

--

Dave Peterson

You need to check the manual for your printer to find out what control
characters or escape sequence will produce a page break. Any of these
sequences can be made using a combination of chr() statements

PageBreak = chr(13) & chr(10) & ..............

"Murthy" wrote:

> Thanks.
>
> Yes, chr(1) is writing something to the text file, but it really didn't
> force a page break on a laser printer.
>
> Still, I will test it on a line printer and get back.
>
> Thanks for your help.
>
>
>
> "Joel" wrote:
>
> > It is ASCiII code SOH (Start of Header) which is CHR(1).
> >
> > So either
> > a.write chr(1)
> >
> > or
> >
> > a.writeline chr(1)
> >
> > "Murthy" wrote:
> >
> > > I am creating a text file using the following code:
> > >
> > > Set fs = CreateObject("Scripting.FileSystemObject")
> > > Set a = fs.CreateTextFile(FilePath & NameOfFile, True)
> > >
> > > Now, in the new text file created, I want to insert page breaks.
> > >
> > > What is the code to be written to have page breaks in the text file created?
> > >
> > > - Murthy
> > >
> > >

Thanks Joel and Dave.

Finally Chr(12) has worked for my printer.

My sincere thanks to both of you again.

- Murthy

"Dave Peterson" wrote:

> I thought formfeed was chr(12) (hex 0C).
>
> I know that this worked on my old dot matrix printer from years ago--not sure if
> it'll work with the OP's printer.
>
> Joel wrote:
> >
> > It is ASCiII code SOH (Start of Header) which is CHR(1).
> >
> > So either
> > a.write chr(1)
> >
> > or
> >
> > a.writeline chr(1)
> >
> > "Murthy" wrote:
> >
> > > I am creating a text file using the following code:
> > >
> > > Set fs = CreateObject("Scripting.FileSystemObject")
> > > Set a = fs.CreateTextFile(FilePath & NameOfFile, True)
> > >
> > > Now, in the new text file created, I want to insert page breaks.
> > >
> > > What is the code to be written to have page breaks in the text file created?
> > >
> > > - Murthy
> > >
> > >
>
> --
>
> Dave Peterson
>