V.urgent Help Please

[CJBIRKIN]

Hello

I need to get this sorted before 5. i've got a report with two labels on and i need to repostion and size them when the form is printed how can i do this??


Cheers

Chris

 

[Rich]

Form or Report?

 

[CJBIRKIN]

report

 

[chrismcbride]

Move label around using the .Top and .Left properties (see help).
Size using .Width and .Height...

Chris

 

[CJBIRKIN]

Hello managed to solve it using:

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

Dim CTLLABEL As Label
Dim IntLenOfCtl As Integer
Dim IntDate As Integer
Dim IntLeftOfCtl As Variant


Set CTLLABEL = Me.Lbl_This_Year

IntDate = Month(Now() - 1)
IntLenOfCtl = ((16.605 * 567) / 12) * (13 - IntDate)
IntLeftOfCtl = (16.605 * 567) - IntLenOfCtl + (7.813 * 567)



Me.Controls("Lbl_This_Year").Left = IntLeftOfCtl
Me.Controls("Lbl_This_Year").Width = IntLenOfCtl
Me.Controls("Lbl_This_Year").Top = 5
Me.Controls("Lbl_This_Year").Height = 250


Set CTLLABEL = Me.LBL_NEXT_YEAR
IntLenOfCtl = (16.605 * 567) - IntLenOfCtl
IntLeftOfCtl = (7.813 * 567)

Me.Controls("Lbl_next_Year").Left = IntLeftOfCtl
Me.Controls("Lbl_next_Year").Width = IntLenOfCtl
Me.Controls("Lbl_next_Year").Top = 5
Me.Controls("Lbl_next_Year").Height = 250

Me.Controls("Lbl_next_Year").TextAlign = 2
Me.Controls("Lbl_This_Year").TextAlign = 2




Me.Controls("Lbl_this_Year").Caption = Format(Now() - 1, "YYYY")
Me.Controls("LBL_NEXT_YEAR").Caption = Format(DateAdd("M", 12, Now() - 1), "YYYY")

End Sub