remove unwrap text

[jamesz]

Hi everyone,



I have one question here.How to remove unwrap text after exporting report from Access to Excel?

Thank you.

[June7]

I have never had to export report to Excel. What is 'unwrap text'?

[jamesz]

sorry for mistake question above. actually how to remove wrap text,means how to unwrap text? when i export it into excel,it will appear in big space n waste so much pages when print it,since I want end user convenience with my system, I want my system (means Access) automate unwrap text when exporting it into system,end user no need to edit it at excel since they have really big databases.

[June7]

Probably depends on what is causing the text to 'wrap'. Are there embedded carriage returns in the text? Is the Excel cell formatted for wrapping?

[jamesz]

Yes,it is formatted into wrap text.i try to find wrap text property at access but i didn't find it,maybe it is related to Excel matter.

[June7]

There isn't a wrap property in Access. Text just always wraps. Something in the export must trigger Excel to set the cells wrap checked on. Haven't been able to replicate that behavior. Do you want to provide project?

[jamesz]

is there another way to attach file as my database is only 700kb? because when i want to attach it,it only allow 500kb.

[June7]

Zip with Windows Compression. 2mb zip allowed.

[jamesz]

This is sample of data.

[June7]

I just ran that export macro. Text in the cells are not wrapping but the rows are sized taller than needed. Has something to do with item_desc field that has comma separated text string. I removed that field from the report and the spreadsheet rows are normal height. Controlling this will require VBA that opens the new spreadsheet and resets the row height.

[jamesz]

ok,may i know vba code? i also try .wraptext=false but it is still same as before.

[June7]

Wrapping is not the issue, it is row height. You need code to open the Excel file. Common topic, here is one reference: http://p2p.wrox.com/excel-vba/10510-...-file-vba.html

Then you need to set row height.

So something like:
Dim oExcel as Excel.Application
Dim oWB as Workbook
Set oExcel = new Excel.Application
Set oWB = oExcel.Workbooks.Open(<pathToWorkbookHere>)
oWB.Worksheets("Sheet1").Cells.EntireRow.AutoFit