Results 1 to 3 of 3
  1. #1
    4 Star Lounger
    Join Date
    Feb 2002
    Posts
    537
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Logo on he report (Access 2000)

    I have copied a code for a logo in the report containing the name of the company.I woild like to extend it a bit and make it into two rows, the second row containing the address only an the first row the name of the company. is it possible ?

    Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
    Dim intI As Integer
    Dim intBlockWidth As Integer
    Dim strToPrint As String
    strToPrint = " Name of the Company ltd 23 Durham Str Berlin "
    Me.CurrentX = 50
    Me.CurrentY = 100
    Me.FontName = "Arial"
    Me.FontSize = 14
    Me.FontBold = True
    Me.ForeColor = vbWhite
    Me.Print strToPrint
    Me.DrawWidth = 12
    intBlockWidth = Me.CurrentX + 20
    For intI = 76 To 276
    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 = 14
    Me.FontBold = True
    Me.Print strToPrint

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Logo on he report (Access 2000)

    Use

    strToPrint = " Name of the Company ltd" & vbNewLine & "23 Durham Str Berlin"

    vbNewLine inserts a new line in the text string.

    But why don't you use a label control? It's much easier than writing all this code.

  3. #3
    4 Star Lounger
    Join Date
    Feb 2002
    Posts
    537
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Logo on he report (Access 2000)

    You are right, i will drop the idea. Thank you

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •