急啊！vb写文本文件时，怎么在里面插入“分页符”？这样以后打印时可以分页

Question

请教请教！

Answer 1

不用什么分隔符，这样试试看Sub 读取文本(strFirstFile As String)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    
    filenum = FreeFile
    Open strFirstFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    '取出源文件行数，按照回车换行来分隔成数组    '循环每一行
    For i = 0 To UBound(fileInfo) - 1
        '如果 (i mod 8 )=0 and i<>0 就控制输出啦
    Next
    Close #filenum
    MsgBox "完毕"
End Sub

Answer 2

如果使用printer对象
使用 printer.newpage 就是换页了