PHV,
Thank you! That works.
Just a quick question: Some formatting from Laron's code is enclosed in With/End With statements. Then sometimes you just have things without End/End With, like this: ApXL.ActiveSheet.PageSetup.LeftFooter = "Page &P of &N"
What's the reason for that? I read up a...
I'm using Bob Larson's Send2Excel module to export query results to Excel spreadsheets. I've made an alteration to set the margins, but it seems like Excel is interpreting my margins perhaps in another measuring system.
This is my code addition:
'Set Margins...
Figured it out.
Nothing advanced here, of course, but here's my code to wrap text on a column.
' Wraps text in Remarks column
With ApXL.Intersect(xlWSh.Range("A1").CurrentRegion, xlWSh.Columns(11))
.WrapText = True
End With
Thanks for pointing me in the right direction. Sorry for the duplicate question!
I have another question and I was wondering if someone might point me in the right direction.
I have a query where autofit works for most fields. However, my last field (column) has Comment data and those lines...
I love this code, but I'm having one problem with it.
'add header (title) and footer (page numbers) and repeat title rows and make paper legal size.
ApXL.ActiveSheet.PageSetup.CenterHeader = "Escalation Report for " & Forms!frmEscalationReports!cboEscalation.Column(1)...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.