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
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 de diegofaz