SoloCodigo

Pásale formato a la variable:
Printer.Print Format(variable,"0000,00")

Gracias por contestar, pero creo que mi problema es diferente. Yo tengo un documento de Word, que contiene una tabla y quiero, desde VB, abrirlo y escribir en él,ya que una serie de datos los tengo. Lo que no sé hacer es cómo enviarle esos datos y que además los ponga donde yo quiero.

El símbolo $ indica el tipo de datos String, pero no hay nimguna diferencia

With ADO.Recordset
  .AddNew
  .Fields("Campo1")=valor1
  .Fields("Campo2")=valor2

  .Fields("Campon")=valorn
  .Update
End With

No entiendo muy bien lo que quieres, pero si te refieres a seleccionar del combo y a buscar el que se corresponde exactamente con el seleccionado, te recomiendo mejor que utilices un DAtacombo conectado a un Adodc, y de esta forma te quedaría:

Private Sub dtcMEDICO_Click()
if area=2 then
  adodc1.Recordset.Bookmark =
  dtcMEDICO.SelectedItem
txtespecialidad.Text = adodc1.Recordset.Fields("ESPECIALIDAD")
Porcentaje.Text = adodc1.Recordset.Fields("Porcentaje")

Y te seleccionará directamente el correcto.


End Sub

Para asignar un valor a una rptLabel en tiempo de ejecución es:
Datareport1.Sections(nº de la seccion).Controls("nombre de la rptLabel").Caption=Valor que le quieras dar
Cuando accedes a la colección Controls, no se despliega la lista de métodos y propiedades, ya que es una colección de cualquier cosa permitida en un Report, pero funciona.
Despues de asignar valor lo muestras y ya está

¿´Qué error te da?

Carga en el Grid la información ya ordenada, para eso utiliza una cláusula SQL.
"Select * from NombreTabla order by nombrecampo1,nombrecampo2,..."
Carga el recordset con esta orden y ya está.

No tengo muy claro qué es lo que pretendes hacer. Explícate un poco más

El método refresh vuelve  a leer la BD, y como estás mostrando ya el report, viewreport, por eso te da el error. Para que envíe directamente a la impresora el report, una vez terminado de cargar es, en el evento DonwloadFinished, el código sería:

Private Sub CRViewer1_DownloadFinished(ByVal loadingType As CRVIEWERLibCtl.CRLoadingType)
If loadingType = crLoadingTotaller Then
    CRViewer1.PrintReport
End If

Los valores que se le pasan a esta rpopiedad depende del tipo de conexión que queramos hacer, de los permisos...
Para que podamos ayudarte deberías decirno algo más, y sobre todo ¿Cuál es el problema?

Una forma:
En la tercera fórmula, la de la suma de las dos anteriores, pregúntale primero si la fórmula 1 es Null (If IsNull(lo que sea)) en cuyo caso pones un 0.
Otra forma:
En la primera y segunda fórmula pregunta también por IsNull, y si es true, pones como resultado un cero. Desta forma no es necesario preguntarle nada en la tercera fórmula

Lo que quieres controlar podrías hacerlo con el evento Dropdown, que el el que se ejecuta justo antes de ser desplegado el combo, y utilizar cualquiera de los otros eventos, ej. el Change, para saber cuando han seleccionado algo y el combo se ha vuelto a plegar