Como imprimir lineas en access

Estoy haciendo un programa en access y necesito imprimir unas lineas. No conozco apenas access y necesito ayuda.
El código me de un error. (El nombre del informe 'CodigoBarras' que introdujo esta mal escrito o hace referencia a un informe que no esta abierto o no existe. El código es el siguiente:
Dim rtf As Report
DoCmd.OpenReport ("CodigoBarras"), acViewNormal
Set rtf = Reports!CodigoBarras
For z = 1 To 113
x = y
y = y + 18.71
num = Mid(total, z, 1)
If num = "0" Then
rtf.Line (500 + x, 1000)-(500 + y, 2000), vbWhite, BF
Else
rtf.Line (500 + x, 1000)-(500 + y, 2000), vbBlack, BF
End If
Next z
Que puedo hacer
Respuesta
Aparentemente no tenés definido un informe con ese nombre.
Si querés hacer referencia a un formulario que existe verificá el nombre.
Si estás queriendo crear un nuevo reporte el método OpenReport no te sirve, pues es para abrir reportes existentes. Podes crear un reporte en blanco y llamarlo "CodigoBarras", con lo cual ese error no te aparecerá nuevamente. Para crear un reporte utilizando código VB te sugiero que consultes la ayuda (yo nunca lo hice, lo que si he hecho es incluir código VB en determinados eventos del reporte en Access 2000).
Suerte, Diego.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas