Imprimir los datos de consulta
ahora puedes ayudarme... Mira
Tengo la siguiente consulta... Lo que quiero es esta misma consulta imprimirla, que ya no se envíe a pantalla sino a la impresora...
Besos
Private Sub CommandButton1_Click()
On Error GoTo noencontro
Sheets("Saldosconsolidados").Select
Set busco = ActiveSheet.Range("A:A").Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
TextBox2 = busco.Offset(0, 1)
TextBox3 = busco.Offset(0, 2)
TextBox4 = busco.Offset(0, 3)
TextBox5 = busco.Offset(0, 4)
TextBox6 = busco.Offset(0, 5)
TextBox7 = busco.Offset(0, 6)
TextBox8 = busco.Offset(0, 7)
TextBox9 = busco.Offset(0, 8)
TextBox10 = busco.Offset(0, 9)
TextBox11 = busco.Offset(0, 10)
TextBox12 = busco.Offset(0, 11)
TextBox13 = busco.Offset(0, 12)
TextBox14 = busco.Offset(0, 13)
TextBox15 = busco.Offset(0, 14)
'así con el resto
Else
noencontro:
MsgBox "No encontró el dato"
End If
Exit Sub
End Sub