استفاده از محیط vb برای تشکیل کارنامه و ذخیره آن با فرمت pdf

**M_ExceL** · 2019/05/07, 01:02

نوشته اصلی توسط MA.SHAHIDI

سلام
در فایل پیوست کارنامه هایی باید صادر شود که در آنها با استفاده از کد مدرسه اطلاعات مربوطه ثبت می شود . کارنامه با وارد شدن کد مدرسه به صورت خودکار آپدیت می شود . کاری که باید انجام شود کپی کد مدرسه از sheet a و پیست آن در a2 , و بعد از آن ذخیره کارنامه به صورت یک فایل pdf در دکستاپ است .

سلام،
بفرمایید :

کد:

Sub M_excel()
Dim LoginName As String
LoginName = Environ("Username")
lrow = Sheets("a").Range("a" & Rows.Count).End(xlUp).Row
dpath = "C:\Users\" & LoginName & "\Desktop\arzyabi\"
If Dir(dpath) = "" Then MkDir dpath
Application.ScreenUpdating = False
For i = 2 To lrow
Sheets("sheet1").Range("a4") = Sheets("a").Range("a" & i)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    dpath & Sheets("sheet1").Range("c8") & " " & Sheets("sheet1").Range("a8") & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
Next i
Application.ScreenUpdating = True
MsgBox ChrW(1593) & ChrW(1605) & ChrW(1604) & ChrW(1740) & _
ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1576) & ChrW(1575) _
& ChrW(32) & ChrW(1605) & ChrW(1608) & ChrW(1601) & ChrW(1602) _
& ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1606) & _
ChrW(1580) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1711) & _
ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1583)
End Sub

توجه داشته باشید که کد فوق متناسب با فایلی که قرار دادید نوشته شده است.
یا حق.