hola amigos, deseo imprimir el contenido de un datagrid pero solo de unos campos especificos, no todo completo.

nombre (campo de bd)
fecha dd/mm/yyyy (campo de bd)
__________________________________________

producto:

(nombre de producto)
1.- pedido1 2.- pedido2 3.- pedido3
(nombre de producto)
1.- pedido1 2.- pedido2 3.- pedido3
(nombre de producto)
1.- pedido1 2.- pedido2 3.- pedido3

y asi sucesivamente el detalle es que necesito imprimirlo en una impresora de tickets.

de antemano les agradesco mucho su tiempo.

saludos

ya puedo imprimir pero no me salen alineada la impresion, la primer columna esta bien alineada a la izquierda

Para que te salgan las columnas bien alineadas, tienes que definir el punto horizontal en que quieres que comience la impresión de los datos de cada columna:

Naturalmente, esto te resultará más fácil si manejas un Array (aCol(0), aCol(1), aCol(2)... - aDat(0), aDat(1), aDat(2)...) y puedas poner

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

a muy bien, solo una cosa mas, yo uso esta funcion para imprimir.

Public Function imprimir(ByVal DataGrid As DataGrid, _
ByVal rs3 As ADODB.Recordset, _
ByVal Titulo As String) As Boolean



Dim c As Integer
Dim dato As String
Dim Titles As String
Dim Header As String
Dim l As Integer 'number of lines For portrait
Dim LLCount As Integer 'temporary line counter
Dim Rowado As Integer
Dim Rowdatag As Integer
Dim registro As String * MAX_CARACTERES
Dim t As String * MAX_CARACTERES

Screen.MousePointer = vbHourglass

DataGrid1.Row = 0
Header = " PRODUCTOS:"
Printer.Font.Size = 10
Printer.Font.Bold = True
Printer.Font.Name = "Courier"


Printer.Print " SUCURSAL: "; Label3
Printer.Print " "
Printer.Print " FECHA: "; Label4


For c = 1 To DataGrid.Columns.Count

t = DataGrid.Columns(c - 1).Caption

Titles = " " & LTrim(Titles & t) & " "
Next
' Configura la fuente de la impresión para el encabezado

Printer.Font.Size = 8
Printer.Font.Bold = True
Printer.Font.Name = "courier"



l = 82
' imprime el titulo , el encabezado y el número de página

Printer.Print Space(20) & Titulo
Printer.Print Header; Printer.Page
Printer.Print Titles
Printer.Font.Bold = False

DataGrid.Refresh

' recorre los datos del datagrid
For Rowado = 1 To Int((rs3.RecordCount - 1) / 13) + 1


For Rowdatag = 0 To DataGrid.VisibleRows - 2
DataGrid.RowBookmark (Rowdatag)
dato = Space(MAX_CARACTERES)

Dim s As Variant
For c = 1 To DataGrid.Columns.Count

registro = DataGrid.Columns(c - 1).CellText(DataGrid.Bookmark)

dato = " " & LTrim(dato & registro) & " "

Next
LLCount = LLCount + 1


If LLCount <= l Then

Printer.Print dato
Else
' Agrega una nueva hoja

Printer.NewPage
Printer.Print Space(40) & Titulo
Printer.Print Header; Printer.Page
Printer.Print Titles
Printer.Print dato
LLCount = 0

End If
rs3.MoveNext
Next Rowdatag
DataGrid.Scroll 0, DataGrid.VisibleRows
Next Rowado
Printer.Print " "
Printer.EndDoc
Screen.MousePointer = vbNormal

imprimir = True

Exit Function

' error
Error_Function:

MsgBox Err.Description, vbCritical


End Function

aqui me imprime los datos completo que contiene el datagrid, pero dentro de este, como le podre meter ese tipo de codigo de scalex scaley para alinear los datos que vienen desde el datagrid?

No me veo yo con tu código... Creo que tal como lo tienes diseñado no es la mejor forma para que puedas controlar los encolumnados y la alineación de los datos, sobre todo los numéricos, para que vayan con decimales, a la derecha...

Quizás consigas hacer una alineación adecuada cambiando la línea
por

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

si, ya salieron un poco mejor, solo una ultima duda por favor.

como le puedo hacer para que la primera columna del data grid queda arriba y las demas abajo.

asi:

primera columna.
(dato1)

segunda columna tercera columna cuarta columna
(dato1) (dato1) (dato1)


primera columna.
(dato2)

segunda columna tercera columna cuarta columna
(dato2) (dato2) (dato2)


primera columna.
(dato3)

segunda columna tercera columna cuarta columna
(dato3) (dato3) (dato3)


............... y asi sucesivamente
como le puedo hacer para que me los imprima asi??

por que asi como tengo el codigo me los imprime asi:

primera columna segunda columna tercera columna cuarta columna
(dato1) (dato1) (dato1) (dato1)


gracias y disculpa con tanta pregunta

Concuerdo con J.M.,
lo que tienes es una mala solucion para la alineacion,
lo basico para que necesitas para imprimir son estas instrucciones :

Printer.CurrentX = 999 'Te sirven para posicionarte
Printer.CurrentY = 999

Printer.TextWidth ("El ancho del texto") 'Funcion que te entrega el ancho del texto
Printer.TextHeight ("El alto del texto") 'Funcion que te entrega el alto del texto

Printer.Print "Lo que quieras que imprimir"

Olvidate de los espacios!!!

__________________
---------------------
Ácido, pero vitamínico.

Maipú- Chile

Supongo que si imprimes el dato de la primera columna, y luego sustituyes
por
ya tendrás solucionado este otro escollo...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion