نحوه گرفتن خروجی پی دی اف از فرم در vba به چه صورت میشود؟

[ne&in]

سلام
دوستان عزیز این انجمن همواره در اسرع وقت سوالات رو پاسخ میدن گاهی شرایطی پیش میاد ممکنه برخی سوال ها نیازمند زمان بیشتری باشه پس لازمه صبر بیشتر هست در مقابل تایمی که دوستان برای ارائه پاسخ محبت میکنند
و اما پاسخ شما

Application.Dialogs(xlDialogPrint).Show 

از این کد استفاده کنید
اما چوناین کدها مستقیا بر اساس تنظیم خود پرینتر عمل می کنن و شما هم برای فرم در نظر دارین ممکنه خوب عمل نکنه
پیشنهادم اینه شما یک شیت برای اینکار در نظر بگیرین و اول از فرم عکس بگیره و عکس در شیت ذخیره بشه و سپس با دستور PrintPreview بتونید به هدفتون برسین

فایل نمونه رو قرار دادم.

سلام
ممنونم از راهنمایی خوبتون

فقط این توی تنظیمات شیت رو انتخاب میکنه برای چاپ فرم کاری نمیکنه
فقط هم میخوام از این فرم پرینت گرفته بشه نه شیتش

[ali.b]

فرم ابعاد ثابتی داره پس کافیه شما حاشیه چاپی اون شیتی که عکس فرم در اون درج میشه رو بر اساس ابعاد فرم تنظیم کنید

سلام
ممنونم از راهنمایی خوبتون

فقط این توی تنظیمات شیت رو انتخاب میکنه برای چاپ فرم کاری نمیکنه
فقط هم میخوام از این فرم پرینت گرفته بشه نه شیتش

[ne&in]

فرم ابعاد ثابتی داره پس کافیه شما حاشیه چاپی اون شیتی که عکس فرم در اون درج میشه رو بر اساس ابعاد فرم تنظیم کنید

منظورتون رو متوجه نشدم
بنده میگم توی تنظیمات چاپ میره روی active sheet روی بقیه کار نمیکنه

[ali.b]

منظورتون رو متوجه نشدم
بنده میگم توی تنظیمات چاپ میره روی active sheet روی بقیه کار نمیکنه

شما گفتین ی کد میخوان که از فرم پرینت بگیره و مشکل تون این بود که نمی تونید حاشیه چاپ رو بر اساس ابعاد فرم تغییر بدین بنابراین بنده اون فایل نمونه رو فرستادم
وقتی کد اجرا شه از فرم عکس میگیره و در شیت درج میکنه کافیه شما تنظیمات چاپ اون شیتی که عکس در اون درح میشه رو بر اساس تصویر درج شده تنظیم کنید. کافیه یک بار تنظیم کنید همین.

سوالتون در مورد فرم بود من منظورتون ازحمله بقیه نمی فهمم شما هدفوت فرم هست یا شیت های دیگه؟
اگه بقیه فرم ها هست طبیعتا باید برای بقیه فرم ها بست بدین اگه منظورتون شیت هست باید ی موضوع جدید ایجاد کنید چون محور سوال شما در مورد فرم هست

[ne&in]

شما گفتین ی کد میخوان که از فرم پرینت بگیره و مشکل تون این بود که نمی تونید حاشیه چاپ رو بر اساس ابعاد فرم تغییر بدین بنابراین بنده اون فایل نمونه رو فرستادم
وقتی کد اجرا شه از فرم عکس میگیره و در شیت درج میکنه کافیه شما تنظیمات چاپ اون شیتی که عکس در اون درح میشه رو بر اساس تصویر درج شده تنظیم کنید. کافیه یک بار تنظیم کنید همین.

سوالتون در مورد فرم بود من منظورتون ازحمله بقیه نمی فهمم شما هدفوت فرم هست یا شیت های دیگه؟
اگه بقیه فرم ها هست طبیعتا باید برای بقیه فرم ها بست بدین اگه منظورتون شیت هست باید ی موضوع جدید ایجاد کنید چون محور سوال شما در مورد فرم هست

با سلام و احترام
شاید خوب بیان نکردم سوالم رو
ببنید من یک فرم دارم که میخوام بدون اینکه در محیط اکسل وارد بشم و کلا بدون اینکه پرینتی از شیتی گرفته بشه ....
از فرمم عین کار پرینت اسکرین از خود فرم پرینت بگیره و همین طور ازش به حای پرینت خروجی پی دی اف بگیره ...

این کار شدنی هست ؟ به جه شکل
میدونم پرینت رو میشه جون با کد userform1.printform میشه ولی عمودی میگیره ولی فرمم عرض زیاد هست و زیاد هست افقی بگیره ...

اما نمیدونم چطوری میشه تنظیم پرینتر بیاد و دستور چاپ میدم از پرینتر بگیره به جای شیت اون فرم

[ali.b]

برای اون حالت من راهی پیدا نکردم
ببنید نیاز نیست حتما اون شیت فعال باشه شما شیت رو مخفی کن همین!! وقتی درخواست داده شد
شما از اکسل انتظار برنامه C رو نداشته باشین.

Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)
Private Const VK_LMENU = &HA4
Private Const VK_SNAPSHOT = &H2C
Private Const VK_CONTROL = &H11
Private Const VK_V = &H56
Private Const VK_0x79 = &H79
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
 
Private Sub CommandButton1_Click()
 Dim sAppOs As String
    Dim wks As Worksheet
    'get oparating system
Call d
    
    sAppOs = Application.OperatingSystem
 
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
    If Mid(sAppOs, 18, 2) = "NT" Then
    ' WinNT,Windows2000,WindowsXP - Using Win32API
        Call keybd_event(VK_LMENU, VK_V, KEYEVENTF_EXTENDEDKEY, 0)
        Call keybd_event(VK_SNAPSHOT, VK_0x79, KEYEVENTF_EXTENDEDKEY, 0)
        Call keybd_event(VK_LMENU, VK_V, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
        Call keybd_event(VK_SNAPSHOT, VK_0x79, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
    Else
    ' Windows95,Windows98,WindowsME
        Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0)
        Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
    End If
    DoEvents
    Unload Me
Sheet2.Visible = xlSheetVisible
    Sheet2.Select
    Range("A1").Select
    ActiveSheet.Paste
    'wks.SaveAs Filename:="D:/myfile.htm", FileFormat:=xlHtml
    'wks.Parent.Close False
    Worksheets("ab").PrintPreview
     Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Sheet2.Visible = xlSheetHidden
End Sub

این کدهایی که با رنگ قرمز نشون دادم رو قرار بدین مشکلتون حل میشه
رنگ سبز رو هم تو کد قبلی ی سره هست مثل این رنگ جدا کنید

[ne&in]

برای اون حالت من راهی پیدا نکردم
ببنید نیاز نیست حتما اون شیت فعال باشه شما شیت رو مخفی کن همین!! وقتی درخواست داده شد
شما از اکسل انتظار برنامه C رو نداشته باشین.

Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)
Private Const VK_LMENU = &HA4
Private Const VK_SNAPSHOT = &H2C
Private Const VK_CONTROL = &H11
Private Const VK_V = &H56
Private Const VK_0x79 = &H79
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
 
Private Sub CommandButton1_Click()
 Dim sAppOs As String
    Dim wks As Worksheet
    'get oparating system
Call d
    
    sAppOs = Application.OperatingSystem
 
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
    If Mid(sAppOs, 18, 2) = "NT" Then
    ' WinNT,Windows2000,WindowsXP - Using Win32API
        Call keybd_event(VK_LMENU, VK_V, KEYEVENTF_EXTENDEDKEY, 0)
        Call keybd_event(VK_SNAPSHOT, VK_0x79, KEYEVENTF_EXTENDEDKEY, 0)
        Call keybd_event(VK_LMENU, VK_V, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
        Call keybd_event(VK_SNAPSHOT, VK_0x79, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
    Else
    ' Windows95,Windows98,WindowsME
        Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0)
        Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
    End If
    DoEvents
    Unload Me
Sheet2.Visible = xlSheetVisible
    Sheet2.Select
    Range("A1").Select
    ActiveSheet.Paste
    'wks.SaveAs Filename:="D:/myfile.htm", FileFormat:=xlHtml
    'wks.Parent.Close False
    Worksheets("ab").PrintPreview
     Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Sheet2.Visible = xlSheetHidden
End Sub

این کدهایی که با رنگ قرمز نشون دادم رو قرار بدین مشکلتون حل میشه
رنگ سبز رو هم تو کد قبلی ی سره هست مثل این رنگ جدا کنید

با سلام و احترام
بنده توقع برنامه c ندارم ...بنده هم سوال کردم امکانش هست اول تنظیم کرد بعد پرینت گرفت ؟
چون وقتی کد userform.printform رو قرار میدیم دقیقا از فرم پرینت میگیره ولی عمودی که نصفه هست فقط میخوام افقی باشه کدی هست اضافه بشه کلا بدون اومدن پنجره تنظیمات افقی پرینت بگیره؟

خروجی پی دی اف رو با پرینت اسکرین حل میکنم

[Nooraldin]

سلام
یه فرمی در ماکرو دارم . وقتی که براساس یک table ای سرچ می کنم یه سری اطلاعات درون فرم نمایش می دهد. می خواهم از این اطلاعات مطابق با فرم مورد نظر پرینت بگیرم. کد این پرینت گرفتن چیه ؟
با تشکر

[امين اسماعيلي]

ba dr00o00d

code zir ro emtehan konin bebinim kareton hal mishe, vase man ke kar kard, dar zemn excel baza nabinam hay in narm afzaro ba C va .... moghayesash konina behem bar mikhore, to omram yechizaie didam bahash doros kardan ke ba zabanhaye barnamenevisi dige be in asoni nemishe anjamesh dad. dar ayane nazdic ham ehtemalesh hast zabane payton behesh ezafe beshe darzemn khob ama code

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1

Private Sub CommandButton1_Click()
    DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    DoEvents
    Workbooks.Add
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
        DisplayAsIcon:=False
    ActiveSheet.Range("A1").Select
    'added to force landscape
    ActiveSheet.PageSetup.Orientation = xlLandscape
    
   
With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With

    ActiveSheet.PageSetup.PrintArea = ""
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        '.PrintQuality = 300
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWorkbook.Close False
End Sub

ino to formeton copy konin, farz ham bar in ast ke commandbutton1 hamon dokmeie hast ke print form ro baraton anjam mide