ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   CreateTextFile method - Pagebreaks in the Text file (https://www.excelbanter.com/excel-programming/417929-createtextfile-method-pagebreaks-text-file.html)

murthy

CreateTextFile method - Pagebreaks in the Text file
 
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



joel

CreateTextFile method - Pagebreaks in the Text file
 
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



murthy

CreateTextFile method - Pagebreaks in the Text file
 
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



Dave Peterson

CreateTextFile method - Pagebreaks in the Text file
 
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

joel

CreateTextFile method - Pagebreaks in the Text file
 
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



murthy

CreateTextFile method - Pagebreaks in the Text file
 
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



All times are GMT +1. The time now is 10:18 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com