Esto es del Formato de Ticket

If MsgBox( “Desea imprimir el ticket”, vbQuestion + vbYesNo + vbDefaultButton2 ) = vbNo Then
Exit Sub
End If

Si deseas que te muestre un previo a tu venta (Ticket)

Deberas de colocar la siguiente sintaxis

MsgBox(cSalida)

Esta sintaxis debera de ser colocada antes de la impresion del formato, dejo el ejemplo de colocacion.

Else
MsgBox(cSalida)
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla

Grupo Help MBP
Nestor Guzman

Condicion para que pregunte si desea imprimir

Desplegar vista en cuadro Preliminar

El cargo De Tip`s en Tip`s Aprendo (Formato Ticket). apareció primero en José Félix ♞.

El lenguaje de consulta estructurado (SQL) es un lenguaje de base de datos nonnalizado, utilizado por el motor de
base de datos de Microsoft Jet. SQL se utiliza para crear objetos QueryDef, como el argumento de origen del
metodo OpenRecordSet y como la propiedad RecordSource del control de datos. Tambien se puede utilizar con el
metodo Execute para crear y manipular directamente las bases de datos Jet y crear consultas SQL de paso a traves
para manipular bases de datos remotas cliente – servidor.
1.1. Componentes del SQL
Ellenguaje SQL esta compuesto por comandos, clausulas, operadores y funciones

Saber Mas……
Pregunta por el Curso Basico de (SQL)

Grupo Help Mbp

El cargo De Tip´s en Tip´s Aprendo apareció primero en José Félix ♞.

Estimados Usuarios y/o Distribuidores en esta ocasion les muestro los CONTROLES de las Cajas de Texto

Les Muestro la Siguiente Lista:

Dar Formato al Objeto
nombredelobjeto.Text = Formato( 0, “0.00”)

Dar Color al Fondo del Objeto
nombredelobjeto.BackColor = vbGrey

Dar Color a la Fuente del Objeto
nombredelobjeto.ForeColor = vbWhite

Asignar si esta activo el Objeto
nombredelobjeto.Enabled = False
False = Desactivado
True = Activado

Asignar el Index del Objeto
nombredelobjeto.TabIndex = 17

Nestor Guzman Bernal
Consultor de Desarrollo

El cargo De Tip´s en Tip´s Aprendo apareció primero en José Félix ♞.

La Sintaxis seria la Siguiente:

Me.Caption = "EJEMPLO DE GRID VENTANA 1"  (Colocamos el nombre de la Forma)
Me.BackColor = RGB(0,128,128)  (Colocamos el color de la forma)

Dim s

s = _

“SELECT venta, ocupado, tipo_doc FROM ventas” (designamos los registros a mostrar asi como la tabla)

‘ 1.- Sentencia de SQL, 2.- Color del primer renglon
‘ 3.- El color del siguiente renglon, 4.- Cuantos
‘ renglones se muestran por capa, 5 y 6.- Columna
‘ y renglon de inicio
fillGrid (s), RGB( 200, 200, 200 ), _
RGB( 240, 240, 240 ), 40, 0, 0

si deseamos asignar un ancho especifico la sintaxis seria la siguiente debajo de la ultima linea

Grid.ColumnWidth(Grid.ColumnKey(1)) = 120
Grid.ColumnWidth(Grid.ColumnKey(2)) = 100
Grid.ColumnWidth(Grid.ColumnKey(3)) = 100

Nestor Octavio Guzman Bernal
Consultor de Analisis de Desarrollo

El cargo De tip´s en tip´s Aprendo apareció primero en José Félix ♞.