Problemas com Relatórios

Pessoal,

O meu relatório é feito em print, para imprimir uso o comando printer, agora

criei um relatório para ser mostrado na tela, com uma picturebox, só que em vez de usar o printer uso o picture box. ele ficou assim:
Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM controledocumentos")
acum = 0
pag = 0
ll = 60
On Error Resume Next
var_sql.MoveMin
Do While Not var_sql.EOF
    If ll >= 60 Then
        pag = pag + 1
        Picture1.Print Tab(1); "     CR DOC 1.0";
        Picture1.Print Tab(40); "Data :" + CStr(Date);
        Picture1.Print Tab(170); "Pag. :" + Str(pag)
        Picture1.Print Tab(1); String(220, "_")
        Picture1.Print Tab(45); "Controle de Distribuição de Documentos Internos                                                 CDDI"
        Picture1.Print Tab(1); String(220, "_")
        Picture1.Print Tab(1); "   Código";
        Picture1.Print Tab(12); "Tipo";
        Picture1.Print Tab(32); "Documento";
        Picture1.Print Tab(52); "Rev";
        Picture1.Print Tab(62); "Data";
        Picture1.Print Tab(82); "Nº";
        Picture1.Print Tab(92); "Setor";
      Picture1.Print Tab(122); "Resp";
        Picture1.Print Tab(152); "Devolução";
        Picture1.Print Tab(1); String(220, "_")
        Picture1.Print
        ll = 8
     End If
     Picture1.Print Tab(3); Format(var_sql!coddocumentos, "000");
     Picture1.Print Tab(12); var_sql!tipodocumento;
     Picture1.Print Tab(32); var_sql!documento;
Picture1.Print Tab(52); var_sql!revisao;
     Picture1.Print Tab(62); var_sql!Data;
     Picture1.Print Tab(82); var_sql!numero;
     Picture1.Print Tab(92); var_sql!setor;
Picture1.Print Tab(122); var_sql!resp;
     Picture1.Print Tab(152); var_sql!devolucao;
     var_sql.MoveNext
     If ll = 60 Then
        Printer.NewPage 'jogar numa próxima pagina
     End If
Loop
Picture1.Print
Printer.EndDoc

Agora tenho a seguinte duvida:

Na impressão normal ele funciona OK, meu cadastro tem 80 registros sai a primeira folha com os 56 registros e a segunda com 24.

Ja na picture box aparece.

Como faço para que quando os cadastros chegarem a um numero grande e não couber na picture box criar por exemplo um HSscrollbar, para descer os dados. Ou criar outra picture para ser mostrada a pagina 2.

Sem mais agradeço pela atenção.