output to excel question

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

re: output to excel question

On Oct 23, 1:40 pm, bobh <vulca...@yahoo.comwrote:I think you need to set the formatting of the excel worksheet within
excel.

re: output to excel question

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" <jebva@yahoo.comwrote in message
news:1193162608.630135.89520@i13g2000prf.googlegro ups.com...

re: output to excel question

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

Thanks :)
bobh.

On Oct 23, 3:09 pm, "Phil Stanton" <p...@stantonfamily.co.ukwrote:

re: output to excel question

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" <p...@stantonfamily.co.ukwrote:

re: output to excel question

..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 <vulcaned@yahoo.comwrote:
Please Post Any Replies To This Message Back To the Newsgroup.
There are "Lurkers" around who can benefit by our exchange!

re: output to excel question

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" <vulcaned@yahoo.comwrote in message
news:1193169355.500856.44820@i13g2000prf.googlegro ups.com...

re: output to excel question

On Oct 23, 5:55 pm, Chuck Grimsby <c.grim...@worldnet.att.net.invalid>
wrote:
That works, thanks :)