Mensajes

si te fijas en tu impresora, cuando ejecutes lo del command1, te va a formar un trabajo de impresión y lo tendra en espera hasta que le des EndDoc

aver vamos a ver si entendí. Lo que quieres hacer es que cuando agregas un Item te muestre:

Nombre   Tiempo1            Tiempo2
Pedro           1                     1

y si vas agregando más items ponga:

Nombre   Tiempo1            Tiempo2
Pedro           1                     1
Pedro           2                     2

bueno si el problema es el objeto "x" pues quitalo, y pones tú código así:

Código [Seleccionar] Expandir


Listview1.ListItems.add ,,"Pedro"
Listview1.ListItems.subitems(1) = tiempo1
Listview1.ListItems.subitems(2) = tiempo2


usa la api FindWindow

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
    Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
    'Nombre de la ventana
    Ret = "Nombre de la ventana"
    'Búsca la ventana
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "kp2 no la encontré  ...": Exit Sub
    'te la muestra
    ShowWindow WinWnd, 0
    ShowWindow WinWnd, 1   
End Sub


se supone que solo basta con escribir "ShowWindow WinWnd, 1", pero aveces no lo hace correctamente por eso agrego "ShowWindow WinWnd, 0"

creo que lo podrías hacer así:

Código [Seleccionar] Expandir


dim Matriz as Variant
Matriz = Array("adhffvsdhfs","gdfgdfg","xfxgdfg")


podrías explicarlo de otra manera no entiendo muy bien, con ese código debería estar agregandote un item cadavez que lo ejecutes, checa si no tienes un ListView.ListItems.Clear o algo así

es por el "Printer.NewPage", se supone que los datos son enviados a la impresora cuando pones el EndDoc, porque con eso le dices a la impresora que has "terminado" la impresión, pero me he encontrado que si pones el NewPage, te manda la página que acabas de crear, no se si sea algún Bug de Printer, o tenga ese comportamiento porque el método Newpage "termina" la página actual y comienza otra nueva.

ok, crei que el ocx tu lo habias hecho

puedes poner un ";" después del print

mira si pones

Código [Seleccionar] Expandir


printer.print "Mensaje"
printer.print "de prueba"


vas  a tener un resultado así:

Mensaje
de prueba

pero si pones el ";"

Código [Seleccionar] Expandir


printer.print "Mensaje";
printer.print "de prueba"


tienes un resultado así:

Mensaje de prueba

Código [Seleccionar] Expandir


'abrir la base de datos
Public Sub OpenDB()
Dim strConect
strConect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\ContF.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=link"
Cn.Open strConect
RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
rsR.Open "Select * from Reporte", Cn, adOpenDynamic, adLockBatchOptimistic
End Sub



y no te faltaria poner

Código [Seleccionar] Expandir


set RS = new RecordSet


antes de

Código [Seleccionar] Expandir


RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic


y el ocx que falta de donde se baja?, deberias poner tambien el código fuente.