Print lines on Access

[luckasx]

I'm drawing a barcode on a report with the method .line. When using pdfcreator the print is okay and using the function DoCmd.printOut and clicking on quick impression (print button) also.
But on normal printing after open report preview this barcode doesn't print. =/
I tried changing resolution of printer, changing color of line, change printer and nothing. There's one question alike here in stackoverflow without answer.


Box drawn with line method on Access 2010 report displaying in print preview but not actually printing
Any solution to this?

[June7]

Have you tried installing barcode fonts?

The code is in OnFormat event?

Post your code.

If you want to provide db for analysis, follow instructions at bottom of my post.

It's quite possible that it is an either/or: Either direct to printer or Preview (then close preview and send direct to printer).

[luckasx]

Have you tried installing barcode fonts?

The code is in OnFormat event?

Post your code.

If you want to provide db for analysis, follow instructions at bottom of my post.

It's quite possible that it is an either/or: Either direct to printer or Preview (then close preview and send direct to printer).

It is on Print event, I can't install fonts, I don't have admin rights.
If I send direct to printer then OK, but I need see the preview before.

[June7]

Try code in Detail section Format event instead of report Print event.

[luckasx]

Try code in Detail section Format event instead of report Print event.

There's no difference if format or print or both. =/

[June7]

I found a report where I use code to draw solid vertical lines. I open in Preview, then send to printer. It works.

My code is in report Page event.

[luckasx]

I found a report where I use code to draw solid vertical lines. I open in Preview, then send to printer. It works.

My code is in report Page event.

Can you send me this code?

[June7]

I have 6 line controls on report. I use their Left property to set the horizontal position of lines drawn by the code. Could instead use actual numbers and remove the line controls.

Private Sub Report_Page()
'1440 twips per inch
Me.Line (Me.lin1.Left, 720)-(Me.lin1.Left, 15120)
Me.Line (Me.lin2.Left, 720)-(Me.lin2.Left, 15120)
Me.Line (Me.lin3.Left, 720)-(Me.lin3.Left, 15120)
Me.Line (Me.lin4.Left, 720)-(Me.lin4.Left, 15120)
Me.Line (Me.lin5.Left, 720)-(Me.lin5.Left, 15120)
Me.Line (Me.lin6.Left, 720)-(Me.lin6.Left, 15120)
End Sub

Translated:

draw vertical line from (X, Y1) to (X, Y2)

[luckasx]

I have 6 line controls on report. I use their Left property to set the horizontal position of lines drawn by the code. Could instead use actual numbers and remove the line controls.

Private Sub Report_Page()
'1440 twips per inch
Me.Line (Me.lin1.Left, 720)-(Me.lin1.Left, 15120)
Me.Line (Me.lin2.Left, 720)-(Me.lin2.Left, 15120)
Me.Line (Me.lin3.Left, 720)-(Me.lin3.Left, 15120)
Me.Line (Me.lin4.Left, 720)-(Me.lin4.Left, 15120)
Me.Line (Me.lin5.Left, 720)-(Me.lin5.Left, 15120)
Me.Line (Me.lin6.Left, 720)-(Me.lin6.Left, 15120)
End Sub

Translated:

draw vertical line from (X, Y1) to (X, Y2)

Thank you for the effort. But this don't solve the question. It must be a problem with the printer I don't know.

[June7]

Maybe. Have you tried other printers? If you want to provide your db for analysis, follow instructions at bottom of my post.