SoloCodigo

Me pueden ayudar con este codigo me marca Error '380' en tiempo de Ejecucion
El valor de la propiedad no es valido
Este error me Marca cuando estoy diseñando el programa y lo ejecuto con F5 y tambien cuando esta generado el .EXE

Printer.ScaleMode = 7 'Escala en Centimetros
Printer.FontName = "Lucida Console"
Printer.Orientation = 1
Printer.PaperSize = 1 'Tamaño Carta, Aqui me marca el ERROR
Printer.FontSize = 10
Printer.Font.Bold = False
Printer.CurrentX = 0.4
Printer.CurrentY = 3
Printer.Print cboCliente
Printer.EndDoc

Ayuda por favor, Necesito cambiar de "DAO" a "ADO" el motivo de cambiar ADO es por que segun comentarios que leido, es mas rapido conectarse con ADO  a una base de Datos y menos problematico, abajo describo el codigo que necesito cambiar a ADO, uso Data Control por si sirve de algo, ustedes me dicen que codigo tengo que cambiar, quitar o poner.  Gracias



------------------------------------------------
Private Sub cboArticulo_Click()
' Load the selected record.
    Articulo.RecordSource = _
        "SELECT * FROM Producto WHERE Descripcion='" & _
        cboArticulo.Text & "'"
    Articulo.Refresh
End Sub
----------------------------------------------------------
Dim dbname As String
Dim db As Database
Dim rs As Recordset

    ' Open the database.
    dbname = App.Path
    If Right$(dbname, 1) <> "" Then dbname = dbname & ""
    dbname = dbname & "clientes.mdb"
   
    Set db = OpenDatabase(dbname)   ' Creo que aqui estoy utilizando DAO
    Set rs = db.OpenRecordset( _
        "SELECT Cliente FROM Client ORDER BY Cliente", _
        dbOpenSnapshot)

    ' Load the ComboBox.
    rs.MoveFirst
    Do While Not rs.EOF
        cboCliente.AddItem rs!Cliente
        rs.MoveNext
    Loop
   
    rs.Close
    db.Close
   
    ' Connect the Data control to the database.
    datPersonas.DatabaseName = dbname

    ' Select the first choice.
    cboCliente.ListIndex = 0
   
End Sub

Si alguien me puede ayudar por favor, con un codigo para adaptar los formularios a cualquier resolucion de pantalla, he visto algunos pero estan muy extensos y complicados para entender y adaptarlos a mi proyecto

Si no hay, voy a tener que  redimensionarlos en cada computadora que instale el proyecto, es decir voy a programarlos en cada computadora

Tengo este codigo repetido 2 veces en el formulario lo unico que cambia de uno al otro es el nombre del Combo y la Base de datos claro tambien cambia la tabla y el campo de la base de datos
Al ejecutar el codigo me marca el error
'funcion o nombre ambiguo',  
me supongo porque se repite el Private Sub Form Load 2 veces, entonces como agrego estos dos codigos sin que haya error

-------------------------------------------------------------------------------
Private Sub cboName_Click() ' Este el nombre del Combo
' Load the selected record.
datPeople.RecordSource = _
"SELECT * FROM People WHERE Name='" & _ '
cboName.Text & "'"
datPeople.Refresh
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Load()
Dim dbname As String
Dim db As Database  
Dim rs As Recordset

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "" Then dbname = dbname & ""
dbname = dbname & "data.mdb"

Set db = OpenDatabase(dbname)
Set rs = db.OpenRecordset( _
"SELECT Name FROM People ORDER BY Name", _
dbOpenSnapshot)

' Load the ComboBox.
rs.MoveFirst
Do While Not rs.EOF
cboName.AddItem rs!Name
rs.MoveNext
Loop

rs.Close
db.Close

' Connect the Data control to the database.
datPeople.DatabaseName = dbname

' Select the first choice.
cboName.ListIndex = 0
End Sub

Codigo para Pasar Items de un Combox a Varios TextBox

Tengo un ComBox con una lista de items, estos items quiero pasarlos de uno en uno por medio de un CommandButton a 15 TextBox

Es decir el codigo me va checar si el primer TextBox ya esta lleno con un item entonces lo pasa al segundo y si el primero y el segundo ya estan llenos entonces me lo pasa al tercero y asi sucesivamente

Gracias de Antemano

Como enlazo un DataCombo con una BaseDatos

Es decir que en el DataCombo me aparezcan todos los Nombres del campo "NOMBRE" de una BaseDatos

O es mejor usar un DBCombo

Gracias de Antemano
ramirog@valle.net.mx

Soy Novato en esto de Programacion
Estoy haciendo un programa para facturacion lo tengo al 70% completado.
Alguien me puede ayudar con el cuerpo de la factura es decir que control seria el indicado para hacer este cuerpo msFlexGrid, Data Grid o otros controles, no se ustedes diganme

Nota: Trabajo con el "CONTROL DATA" y "RECORDSET" no se nada de SQL y ADO

El cuerpo debe contener las siguientes columnas

CANTIDAD DESCRIPCION P. UNIT. IMPORTE
---------------------------------------------------------------
---------------------------------------------------------------
* CON 14 RENGLONES O LINEAS HACIA ABAJO
* SUMAR TODA LA COLUMNA IMPORTE Y PONERLO EN UN TEXTBOX
* QUE ME ACEPTE ESCRIBIR EN LAS COLUMNAS CANTIDAD E IMPORTE
*EL CODIGO DE IMPRESION PARA ESTE CUERPO

Ya tengo ubicado un ComboBox conectado a una BASE DE DATOS para la busqueda de la columna DESCRIPCION

Gracias de Antemano
Ramiro Gonzalez
ramirog@valle.net.mx