تماس با ما: 02166057992 چت آنلاین   ورود

خروجی اکسل سفارشی


سلام

من با این کد از ساب فرم و فرم اصلی خروجی اکسل میگیرفتم که
البته بعضی از اعداد رو به صورت علامت سوال نشون میداد
(البته این کد خروجی اکسلی که میداد تمیز بود مثلا: قسمت تیتر رو رنگی میکرد و فاصله ستون خیلی مناسب بود)

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 و اندازه ستون‌ها طبیعی باشه و کلاً سفارشی باشه؟؟
سپاس



برنامه نویس
جهت کسب اطلاعات بیشتر به انجمن برنامه نویس مراجعه نمایید

نظرات شما

WhatsApp chat