Vb Procedure Help

[fastmike]

Hi guys. i guess i am half way through. just like final step left still trying to figure it out how to create a VB procedure. anyways this is my theory and this is how much i have achieved. my God i have searched i guess every forum trying to get an answer it should'nt be that hard. I have a database. what i am trying to do is that i have a button for view reports which prompts the user to another form with 3 buttons
1) Issue(based on my query)
2) Issue Resolved(based on my query)
3) Issue not resolved(based on my query)
i am using this onclick command
Private Sub Issue_Resolved_Click()
DoCmd.OutputTo acReport, "Issue resolved", acFormatXLS
End Sub
same thing for my other options. works fine but when i open the report in Excel the whole formatting is bad so with my research i found this code very valuable. a standard module code which is as folllow.

' // Generically formats a worksheet
Private Sub GenericXLFormat(ByRef xlApp As Object, ByVal strDescription As String)
On Error Resume Next
With xlApp
.Rows("1:1").Font.Bold = True
.Cells.EntireColumn.AutoFit
With xlApp.ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
.PrintArea = ""
.LeftHeader = ""
.CenterHeader = strDescription
.RightHeader = ""
.LeftFooter = "&""Arial""&8WF COF/SIP Database " & APP_VERSION
.CenterFooter = ""
.RightFooter = "&""Arial,Bold""&8CONFIDENTIAL"
.LeftMargin = Excel.Application.InchesToPoints(0.5)
.RightMargin = Excel.Application.InchesToPoints(0.5)
.TopMargin = Excel.Application.InchesToPoints(0.8)
.BottomMargin = Excel.Application.InchesToPoints(0.75)
.HeaderMargin = Excel.Application.InchesToPoints(0.5)
.FooterMargin = Excel.Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With
End With
End Sub
i tried to debug it and compile it no errors. now this is what i want and i will be done. what i want is when a user clicks on my report button which is (Issue) i want this Xlformat module to be run with my onclick button. i can't find or cannot think of any procedure since my skills in VB is not that very good. all i wanted to do is create some kind of procedure with this Xlformat module so then a user will be able to save the report as an excel file and then when he opens it the report in excel should be in perfect format. columns, width should be alligned automatically. i have been searching days and night with different answers to create a template or do this and that but nothing works plz help guys. i really appreciate it.
Thanks

 

[Rich]

Why do you want to display the Report in Excel?

 

[fastmike]

i wish if it was me i would have done it manually by going through tools?analyze>excel. but you know how some managers are ( No i want that report button which i have it on the form to let the user save it as excel file which i have achieved with perfect formatting so then they dont have to waste time to format it and print it out) That is y rich i am searching day and night and the funny part is this is the last part only and i am stuck for like almost now 9 days. searching trying to find different answers buit have not acheieved it yet.