output to excel question

[bobh]

Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

'move the active cell down one row
row = row + 1

[DavidB]

On Oct 23, 1:40 pm, bobh <[e-mail]:

Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.

[Phil Stanton]

Here is a bit of code

With MyXL.Application
If .Worksheets(i).Name <SheetName Then ' Name changed
.Worksheets(i).Name = SheetName
End If
.Worksheets(i).Activate
.Range("A1:Q100").Clear
.Range("A1:Q100").Font.Size = FontSize10_9
.Range("A1:Q100").Font.Bold = False
'.Range("A1:Q6").Font.Name = "Arial"
'.Range("A7:Q100").Font.Name = "Arial Narrow" ' To make more room
.Range("A1:Q100").Font.Name = "Arial"
.Range("H7:Q100").Font.Name = "Arial Narrow" ' Race Results To
make more room

.Cells(1, 1).Font.Size = FontSize14_12
.Cells(1, 1).Font.Color = 255
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Value = "Overall Results " & Frm!SeriesName
End With

May be of help
Phil
"DavidB" <je***@yahoo.comwrote in message
news:11*********************@i13g2000prf.googlegro ups.com...

On Oct 23, 1:40 pm, bobh <[e-mail]:

>Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.

[bobh]

This -- .Cells(1, 1).Font.Bold = True <-- was exactly what I was
looking for

Thanks :)
bobh.

On Oct 23, 3:09 pm, "Phil Stanton" <[e-mail]:

Here is a bit of code

With MyXL.Application
If .Worksheets(i).Name <SheetName Then ' Name changed
.Worksheets(i).Name = SheetName
End If
.Worksheets(i).Activate
.Range("A1:Q100").Clear
.Range("A1:Q100").Font.Size = FontSize10_9
.Range("A1:Q100").Font.Bold = False
'.Range("A1:Q6").Font.Name = "Arial"
'.Range("A7:Q100").Font.Name = "Arial Narrow" ' To make more room
.Range("A1:Q100").Font.Name = "Arial"
.Range("H7:Q100").Font.Name = "Arial Narrow" ' Race Results To
make more room

.Cells(1, 1).Font.Size = FontSize14_12
.Cells(1, 1).Font.Color = 255
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Value = "Overall Results " & Frm!SeriesName
End With

May be of help
Phil"DavidB" <[e-mail] in message

news:11*********************@i13g2000prf.googlegro ups.com...

On Oct 23, 1:40 pm, bobh <[e-mail]:

Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.- Hide quoted text -

- Show quoted text -

[bobh]

Any example of what 'alignment' looks like??
I tried
..Cells(1, 1).Alignment = Center ;nope
..Cells(1, 1).Alignment.Center = True ; nope

bobh.

On Oct 23, 3:09 pm, "Phil Stanton" <[e-mail]:

Here is a bit of code

With MyXL.Application
If .Worksheets(i).Name <SheetName Then ' Name changed
.Worksheets(i).Name = SheetName
End If
.Worksheets(i).Activate
.Range("A1:Q100").Clear
.Range("A1:Q100").Font.Size = FontSize10_9
.Range("A1:Q100").Font.Bold = False
'.Range("A1:Q6").Font.Name = "Arial"
'.Range("A7:Q100").Font.Name = "Arial Narrow" ' To make more room
.Range("A1:Q100").Font.Name = "Arial"
.Range("H7:Q100").Font.Name = "Arial Narrow" ' Race Results To
make more room

.Cells(1, 1).Font.Size = FontSize14_12
.Cells(1, 1).Font.Color = 255
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Value = "Overall Results " & Frm!SeriesName
End With

May be of help
Phil"DavidB" <[e-mail] in message

news:11*********************@i13g2000prf.googlegro ups.com...

On Oct 23, 1:40 pm, bobh <[e-mail]:

Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.- Hide quoted text -

- Show quoted text -

[Chuck Grimsby]

..HorizontalAlignment = xlCenter

If you're using late binding, replace xlCenter with -4108.
By the way, recording a macro in Excel, which creates a VBA macro in
Excel, and then examining that macro is the fastest way to find out
how to do something in Excel. (Most of the time anyways...)
On Tue, 23 Oct 2007 12:55:55 -0700, bobh <vu******@yahoo.comwrote:

>Any example of what 'alignment' looks like??
I tried
.Cells(1, 1).Alignment = Center ;nope
.Cells(1, 1).Alignment.Center = True ; nope

bobh.

On Oct 23, 3:09 pm, "Phil Stanton" <[e-mail]:

>Here is a bit of code

With MyXL.Application
If .Worksheets(i).Name <SheetName Then ' Name changed
.Worksheets(i).Name = SheetName
End If
.Worksheets(i).Activate
.Range("A1:Q100").Clear
.Range("A1:Q100").Font.Size = FontSize10_9
.Range("A1:Q100").Font.Bold = False
'.Range("A1:Q6").Font.Name = "Arial"
'.Range("A7:Q100").Font.Name = "Arial Narrow" ' To make more room
.Range("A1:Q100").Font.Name = "Arial"
.Range("H7:Q100").Font.Name = "Arial Narrow" ' Race Results To
make more room

.Cells(1, 1).Font.Size = FontSize14_12
.Cells(1, 1).Font.Color = 255
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Value = "Overall Results " & Frm!SeriesName
End With

May be of help
Phil"DavidB" <[e-mail] in message

news:11*********************@i13g2000prf.googlegr oups.com...

On Oct 23, 1:40 pm, bobh <[e-mail]:
Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

>'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

>'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.- Hide quoted text -

- Show quoted text -

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

[Phil Stanton]

With MyXL.Application
.Columns("A").ColumnWidth = 7 ' Position
.Range("A9:A100").Font.Bold = True
.Columns("B").ColumnWidth = 20 ' Boat name
.Columns("C").ColumnWidth = ColumnWidth10_9 ' Sail No
If Frm!ResultTypeIDRelay = 1 Then ' Combined
.Columns("D").ColumnWidth = ColumnWidth10_9 ' Division
.Columns("D").HorizontalAlignment = xlRight ' Right
ElseIf Frm!ResultTypeIDRelay = 2 Then ' Division
.Columns("D").ColumnWidth = 0 ' Division
ElseIf Frm!ResultTypeIDRelay = 4 Then ' Boat Class
.Columns("D").ColumnWidth = ColumnWidth10_9 ' Division
.Columns("D").HorizontalAlignment = xlRight ' Right
End If
.Columns("E").ColumnWidth = 6 ' Club
.Columns("F").ColumnWidth = 6 ' Total Points
.Columns("G").ColumnWidth = 6 ' Total Ex Discards
.Columns("G").Font.Bold = True ' Total Ex Discards
.Columns("H").ColumnWidth = ColumnWidths8Quart_7Quart ' Races
.Columns("I").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("J").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("K").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("L").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("M").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("N").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("O").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("P").ColumnWidth = ColumnWidths8Quart_7Quart
.Columns("Q").ColumnWidth = ColumnWidths8Quart_7Quart
.Range("F7:G8").HorizontalAlignment = xlRight ' right
.Range("H7:Q100").HorizontalAlignment = xlCenter ' center
.Range("H7:Q100").Font.Color = 16711680 ' blue
.Cells(2, 1).Font.Size = FontSize14_12
.Cells(2, 1).Font.Color = 255
.Cells(2, 1).Font.Bold = True

More bits

Phil
"bobh" <vu******@yahoo.comwrote in message
news:11*********************@i13g2000prf.googlegro ups.com...

Any example of what 'alignment' looks like??
I tried
.Cells(1, 1).Alignment = Center ;nope
.Cells(1, 1).Alignment.Center = True ; nope

bobh.

On Oct 23, 3:09 pm, "Phil Stanton" <[e-mail]:

>Here is a bit of code

With MyXL.Application
If .Worksheets(i).Name <SheetName Then ' Name changed
.Worksheets(i).Name = SheetName
End If
.Worksheets(i).Activate
.Range("A1:Q100").Clear
.Range("A1:Q100").Font.Size = FontSize10_9
.Range("A1:Q100").Font.Bold = False
'.Range("A1:Q6").Font.Name = "Arial"
'.Range("A7:Q100").Font.Name = "Arial Narrow" ' To make more
room
.Range("A1:Q100").Font.Name = "Arial"
.Range("H7:Q100").Font.Name = "Arial Narrow" ' Race Results To
make more room

.Cells(1, 1).Font.Size = FontSize14_12
.Cells(1, 1).Font.Color = 255
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Value = "Overall Results " & Frm!SeriesName
End With

May be of help
Phil"DavidB" <[e-mail] in message

news:11*********************@i13g2000prf.googlegr oups.com...

On Oct 23, 1:40 pm, bobh <[e-mail]:
Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

>'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

>'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.- Hide quoted text -

- Show quoted text -

[bobh]

On Oct 23, 5:55 pm, Chuck Grimsby <[e-mail]>
wrote:

.HorizontalAlignment = xlCenter

If you're using late binding, replace xlCenter with -4108.

By the way, recording a macro in Excel, which creates a VBA macro in
Excel, and then examining that macro is the fastest way to find out
how to do something in Excel. (Most of the time anyways...)

On Tue, 23 Oct 2007 12:55:55 -0700, bobh <[e-mail]:

Any example of what 'alignment' looks like??
I tried
.Cells(1, 1).Alignment = Center ;nope
.Cells(1, 1).Alignment.Center = True ; nope

bobh.

On Oct 23, 3:09 pm, "Phil Stanton" <[e-mail]:

Here is a bit of code

With MyXL.Application
If .Worksheets(i).Name <SheetName Then ' Name changed
.Worksheets(i).Name = SheetName
End If
.Worksheets(i).Activate
.Range("A1:Q100").Clear
.Range("A1:Q100").Font.Size = FontSize10_9
.Range("A1:Q100").Font.Bold = False
'.Range("A1:Q6").Font.Name = "Arial"
'.Range("A7:Q100").Font.Name = "Arial Narrow" ' To make more room
.Range("A1:Q100").Font.Name = "Arial"
.Range("H7:Q100").Font.Name = "Arial Narrow" ' Race Results To
make more room

.Cells(1, 1).Font.Size = FontSize14_12
.Cells(1, 1).Font.Color = 255
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Value = "Overall Results " & Frm!SeriesName
End With

May be of help
Phil"DavidB" <[e-mail] in message

>news:11*********************@i13g2000prf.googlegr oups.com...

On Oct 23, 1:40 pm, bobh <[e-mail]:
Hi,
I have this code in the groupheader_print section of an AccessXP
report. What is the code to 'Bold' the text288 cell.
thanks
bobh.

'this is the rpting category header
wks.Cells(row, 1) = Me.Text288

'move the active cell down one row
row = row + 1

I think you need to set the formatting of the excel worksheet within
excel.- Hide quoted text -

- Show quoted text -

Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!- Hide quoted text -

- Show quoted text -

That works, thanks :)