پرینت گرفتن از فرم

**iranweld** · 2015/04/19, 12:59

با سلام
جواب سوال اول

از قسمت page layout ، print area، set print area و scale اقدام نمایید

فایل های پیوست شده

**mahmood3200** · 2015/04/19, 13:56

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

**mohamadali110** · 2015/04/19, 14:49

يه دكمه به اسم كامند باتم يك روي يوزرفرمت درست كن و اين دستورو توش بزار

کد:

Option Explicit


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

**majid_mx4** · 2015/04/19, 17:27

با سلام

برای دریافت قسمت دوم سوالتان لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : ارتباط دادن تکست باکس روی فرم به تکست باکس در شیت

با تشکر میر

فایل های پیوست شده

txtb to txtb Mir.xlsm (20.7 کیلو بایت, مشاهدات 33)

**mahmood3200** · 2015/04/19, 20:56

ممنون از جواباتون مشکلم حل شد

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

**mohebbi** · 2015/06/24, 11:32

يه سوال مهم در مورد پرينت

سلام دوستان
يه سوال مهم دارم
من يه فرم كاغذي دارم كه مي خوام اطلاعاتشو از طريق يه فايل اكسل روش پرينت بگيرم
اطلاعات اوليه فرم رو هم روي فايل اكسل دارم
ولي نمي خوام اون اطلاعات اوليه پرينت گرفته بشه و فقط مي خوام اطلاعاتي كه خودم وارد مي كنم پرينت بشه
از print area هم استفاده مي كنم به دردم نمي خوره چون اطلاعات رو شيفت مي كنه به منتها اليه سمت راست
لطفا كمكم كنين
ممنون

نام	اين فيلدها رو خودم وارد مي كنم و فقط مي خوام اينا پرينت بشن منتها در جاي خودشون چون توي فرم چاپ شده مي خوام چاپ بشن
نام خانوادگي	اين فيلدها رو خودم وارد مي كنم و فقط مي خوام اينا پرينت بشن منتها در جاي خودشون چون توي فرم چاپ شده مي خوام چاپ بشن
سن	//
سمت	//
نشاني	//

**Ali Parsaei** · 2015/06/24, 14:56

نوشته اصلی توسط mohebbi

سلام دوستان
يه سوال مهم دارم
من يه فرم كاغذي دارم كه مي خوام اطلاعاتشو از طريق يه فايل اكسل روش پرينت بگيرم
اطلاعات اوليه فرم رو هم روي فايل اكسل دارم
ولي نمي خوام اون اطلاعات اوليه پرينت گرفته بشه و فقط مي خوام اطلاعاتي كه خودم وارد مي كنم پرينت بشه
از print area هم استفاده مي كنم به دردم نمي خوره چون اطلاعات رو شيفت مي كنه به منتها اليه سمت راست
لطفا كمكم كنين
ممنون

نام	اين فيلدها رو خودم وارد مي كنم و فقط مي خوام اينا پرينت بشن منتها در جاي خودشون چون توي فرم چاپ شده مي خوام چاپ بشن
نام خانوادگي	اين فيلدها رو خودم وارد مي كنم و فقط مي خوام اينا پرينت بشن منتها در جاي خودشون چون توي فرم چاپ شده مي خوام چاپ بشن
سن	//
سمت	//
نشاني	//

سلام،
پست 14 اين لينک را نگاه کنيد من يک مطلبي نوشته ام شايد به دردتان بخورد. البته کل تاپيک در مورد مشکلي مانند مشکل شما است و اگر تمام آن را مطالعه نماييد دوستان مطالب مفيد ديگري هم آنجا گفته اند.