تنظیم متن قابل چاپ و یا ارسال به فایل word
تنظیم متن قابل چاپ و یا ارسال به فایل word
با درود فراوان
دوست عزیز از آنجا که سئوال رو خیلی خلاصه نوشتی به همین علت جواب دادن یه کم مشکله
ولی تاجایی که من متوجه شدم اگر درست باشه لیستی دارید که محتویات هر سطر رو بطور جداگانه می خواهید در یک صفحه نمایش داده یا پرینت بگیرید.
یک راه این است که از یک یوزر فرم استفاده کنید که سر سل یا سطری که خواستید به یوزر فرم انتقال داده شود و از نمایش داده شود که در صورت نیاز از خود یوزر فرم پرینت بگیرید.
دوم : این کد از شیت یک ستون A و B را به یک فایل تکس انتقال داده و ذخیره می کند
که با اندکی تغییر برابر با خواسته خود تان آن را می توانید تنظیم کنید.
Sub totext()
On Error Resume Next
MyValue = InputBox("äÇã ÝÇíá ÑÇ ÇäÊÎÇÈ ˜äíÏ", "Iran-Eng", "Name")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ActiveWorkbook.Path & "\" & MyValue & ".text")
N = 0
n1 = 0
For Each c In Range("A:A")
If c <> "" Then
N = N + 1
End If
Next
For i = 0 To N + n1
a.WriteLine Sheet1.Range("A1").Offset(i, 0) & "-" & Sheets("sheet1").Range("A1").Offset(i, 1)
Next i
End Sub
البته دوست عزیز نمی دانم جواب من منطبق با سئوال شما بود و آیا سئوالتان همین بود که من متوجه شدم یا نه امیدوارم بدردبخور باشه
