سلام
من با این کد از ساب فرم و فرم اصلی خروجی اکسل میگیرفتم که
البته بعضی از اعداد رو به صورت علامت سوال نشون میداد
(البته این کد خروجی اکسلی که میداد تمیز بود مثلا: قسمت تیتر رو رنگی میکرد و فاصله ستون خیلی مناسب بود)
On Error GoTo Image20_Click_Err
Me.FullSearchtasksub.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.add
.ActiveSheet.PasteSpecial Format:="biff5", Link:=False, DisplayAsIcon:=False
.cells.Select
.cells.EntireColumn.AutoFit
.Visible = True
.range("a1").Select
End With
Image20_Click_Exit:
Exit Sub
Image20_Click_Err:
MsgBox Error$
Resume Image20_Click_Exit
End Sub
به کمک جنابقسمتی از کد نویسی رو اینجوری تغییر دادم
.ActiveSheet.PasteSpecial Format:="Unicode text", Link:=False, DisplayAsIcon:=False
که مشکل علامت سوال اعداد خوشبختانه رفع شده ولی فایل اکسلی که خروجی میده خیلی اندازه ستون‌ها زیاد هست با اینکه متن داخلشون کمه.
میخواستم ببینم کلاً میشه تو کد نویسی یک تغییراتی داد مثلا: بگیم فونت نازنین باشه و justify و اندازه ستون‌ها طبیعی باشه و کلاً سفارشی باشه؟؟
سپاس
پاسخ با نقل قول