اگر امکان داره کسی کمکم کنه
پرینت در اکسل
Collapse
X
-
سلام من یک فایل اکسل دارم که عدد در ان نوشته و لیست یک سری ماشین آلات هست و به صورت افقی اعداد در جدول وارد شده که در حالت پرینت 21 صفحه میشود من اگر بخواهم کل جدول و در یک صفحه پرینت بگیرم باید چکار کنم؟تنظیمات مربوط به custom scalling هم انجام دادم و خیلی جدول ریز و غیر خوانا میشود؟
اگر امکان داره کسی کمکم کنهبرچسب ها: هیچکدام -
سلام من یک فایل اکسل دارم که عدد در ان نوشته و لیست یک سری ماشین آلات هست و به صورت افقی اعداد در جدول وارد شده که در حالت پرینت 21 صفحه میشود من اگر بخواهم کل جدول و در یک صفحه پرینت بگیرم باید چکار کنم؟تنظیمات مربوط به custom scalling هم انجام دادم و خیلی جدول ریز و غیر خوانا میشود؟
اگر امکان داره کسی کمکم کنه
اینطوری که امکانش نیست
لطفا فایل نمونه بگذارید[FONT=tahoma]:Smilebb (31):[/FONT] -
این نمونه فایل هست به صورت افقی نوشته شده اگر بخواهیم در یک صفحه a4 پرینت بگیریم که صفحه به شکل landscape باشهفایل های پیوست شدهکامنت
-
[FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
[/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
[/FONT][/CENTER]
[/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
[/FONT][/CENTER]کامنت
-
سلام
طراحی جدول وداشبورد و داده ها هنر است
متاسفانه شما این ظرافت را در فایلتون بکار نبردید
اگر واقعا نمیتوانید ترکیب جدولتون را تغییر دهید پس باید گزارش گیری و پرینت را به نوعی تغییر دهید
تنها راه حل شما همین راهی است که برادرمون آقا saed.rasa در پست قبلی گفته
1- راه حل دم دستی
2- طراحی جدولی جدید با فرمت آقا سعید در شیت دوم با ارجاع سلولها به سلول اصلی
نتیجه تقریبا یکی است
برای راه حل دم دستی از کدی که من براتون ارسال میکنم استفاده کنید
برای راه حل اساسی از جدول برادر سعید و ارجاع سلول به سلول استفاده کنید.gif)
Range("A1:A9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("A10").Select
ActiveSheet.Paste
Range("A19").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
Range("A28").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Range("A37").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.SmallScroll Down:=-12
Range("B1:Y9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B22").Select
ActiveWindow.SmallScroll Down:=-57
Range("B1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.SmallScroll ToRight:=7
Range("Z1:AW9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B10").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("AX1:BU9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B19").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("BV1:CS9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=9
Range("B28").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Sheets("Sheet1").Select
Range("CT1:DQ9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B37").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("DR1:DX9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=9
Range("B46").Select
ActiveSheet.Paste[FONT=tahoma]:Smilebb (31):[/FONT]کامنت



کامنت