Logo on the report

  • Thread starter samotek via AccessMonster.com
  • Start date
S

samotek via AccessMonster.com

Could you help me finding some thread or source from where to copy some
samples to build a logo on the report ? I want to build a simple logo
without a picture bot somewhat having a better look
 
D

Duane Hookom

From his/her posting in another Access forum, an image isn't desired. I
suggested he create a new blank report with a 1" tall report header. Then
open the On Print event of this section and enter this code:
Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)
Dim intI As Integer
Dim intBlockWidth As Integer
Dim strToPrint As String
strToPrint = ":: SAMOTEK ::"
Me.CurrentX = 100
Me.CurrentY = 200
Me.FontName = "Arial"
Me.FontSize = 30
Me.FontBold = True
Me.ForeColor = vbWhite
Me.Print strToPrint
Me.DrawWidth = 6
intBlockWidth = Me.CurrentX + 200
For intI = 76 To 256
Me.Line (0, (intI - 76) * 2)-Step(intBlockWidth, 0), RGB(intI, intI,
intI)
Next
For intI = 76 To 256
Me.Line (0, (intI - 76) * 2 + 720)-Step(intBlockWidth, 0), RGB(332 -
intI, 332 - intI, 332 - intI)
Next

Me.Line (0, 0)-(intBlockWidth, 1090), vbBlack, B
Me.CurrentX = 100
Me.CurrentY = 200
Me.FontName = "Arial"
Me.FontSize = 30
Me.FontBold = True
Me.Print strToPrint

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top