你试试吧
Dim a() As String * 200
Dim i As Integer
Private Sub Command1_Click() '50行一页存到p1 图形框中
On Error GoTo gg
Dim kk As Integer
For kk = 1 + (Val(Text2.Text) - 1) * 50 To 50 * Val(Text2.Text) 'text2.text 为要存到图片上的当前页数，如输入1，2，3页
ReDim Preserve a(50)
P1.Print a(kk)
Next kk
Exit Sub
gg: MsgBox "请在text2内输入页数，不要超过总页数": Exit Sub
End Sub
Private Sub Command2_Click() '保存到图片文件
On Error GoTo gg
C1.CancelError = True
C1.FileName = ""
C1.Filter = "(*.bmp)|*.bmp"
C1.Action = 2
SavePicture P1.Image, C1.FileName
gg: Exit Sub
End Sub
Private Sub Command3_Click() '打开文件，送数组a(i),i 为文件总行数
On Error GoTo gg
C1.CancelError = True
C1.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt
C1.Filter = "(*.txt)|*.txt|(*.doc)|*.doc|(All*.*)|*.*"
C1.DialogTitle = "文件打开" & Date & Time
C1.Action = 1
Open C1.FileName For Input As #1
Do While Not EOF(1)
ReDim Preserve a(i)
Line Input #1, a(i)
i = i + 1
Loop
Close #1
Text1.Text = i \ 50 + 1 '打开的总页数送text1.text显示，以50行为例，也可以是别的，具体你的p1依次可以显示多少行，相应该就可以
gg: Exit Sub
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
其中p1为picturebox ,c1为commondialog 工程部件中添加microsot common dialog control 6.0
