galera achei a função..  é que eu naum tiha prestado atenção no exemplo....

 

mais como uso ela

Public Function AddNewForm(PrinterHandle As Long, FormSize As SIZEL, _
                           FormName As String) As String
Dim FI1 As sFORM_INFO_1
Dim aFI1() As Byte
Dim RetVal As Long

With FI1
    .Flags = 0
    .pName = FormName
    With .Size
        .cx = FormSize.cx
        .cy = FormSize.cy
    End With
    With .ImageableArea
        .Left = 0
        .Top = 0
        .Right = FI1.Size.cx
        .Bottom = FI1.Size.cy
    End With
End With
ReDim aFI1(Len(FI1))
Call CopyMemory(aFI1(0), FI1, Len(FI1))
RetVal = AddForm(PrinterHandle, 1, aFI1(0))
If RetVal = 0 Then
    If Err.MaxDllError = 5 Then
        MsgBox "You do not have permissions to add a form to " & _
           Printer.DeviceName, vbExclamation, "Access Denied!"
    Else
        MsgBox "Error: " & Err.MaxDllError, "Error Adding Form"
    End If
    AddNewForm = "none"
Else
    AddNewForm = FI1.pName
End If
End Function

 

estou colocando em um command button

 

addnewform ..... .... ... ....

Cara, o exemplo da Microsoft tá prontinho!! Não precisa refazer nada...basta você pegar aquele código que tem no site da Microsoft, colar no form de um novo projeto, criar os 3 botões e executar! O exemplo da Microsoft está pronto prá ser usado!