تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية تحكم بابعاد الحقول والخطوط داخل التقرير
#1
السلام عليكم
لدي تقرير يحتوي 7 حقول هل يوجد طريقة للتحكم بمسافات الحقول عن طريق فورم خارجي والخطوط وزيادة المسافات بينهما
الرد }}}}
تم الشكر بواسطة:
#2
طيب قول لنا اولا ما هو نوع التقرير الذي تستخدمه ؟ Huh
وما نوع طريقة الربط ؟ Huh
وبإذن الله محلوله مقدماً ... Smile

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:
#3
شكرا للرد اخي الكريم
كريستال ريبورت
داتا سيت
شكرا للرد مرة ثانية اخي الكريم
هل يمكن توسيع السطر برمجيا في التقرير ايضا
الرد }}}}
تم الشكر بواسطة:
#4
مثال صغير
Dim dt As New DataTable
With dt

.Columns.Add("cod")
.Columns.Add("item")

End With

For Each dr As DataGridViewRow In Me.DataGrid1.Rows
Dim c As String = dr.Cells(0).Style.BackColor.Name
Dim cf As String = dr.Cells(0).Style.ForeColor.Name
dt.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value)
Next

Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New Crystalnameaccount
rptDoc.SetDataSource(dt)
reportchang.CrystalReportViewer1.ReportSource = rptDoc
reportchang.ShowDialog()
reportchang.Dispose()
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم كيفية التحكم بابعاد الحقول بالطباعة
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم
استخدم هذا الكود لطباعة الداتا جرد الموجودة في الفورم
كود :
Imports CrystalDecisions.CrystalReports.Engine

Public dt As DataTable
private sub print

dt = New DataTable
        dt.TableName = "grid"
        dt.Columns.Clear()
        If Label1.Text = "1" Then
            Dim NUM As DataColumn = New DataColumn("NUM")
            NUM.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(NUM)
            Dim Name As DataColumn = New DataColumn("Name")
            Name.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(Name)
            Dim TS As DataColumn = New DataColumn("T-S")
            TS.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(TS)
            Dim TF As DataColumn = New DataColumn("T-F")
            TF.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(TF)
            Dim TM As DataColumn = New DataColumn("T-M")
            TM.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(TM)
            Dim Note As DataColumn = New DataColumn("Note")
            Note.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(Note)
            Dim by As DataColumn = New DataColumn("by")
            by.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(by)
        End If
        
         Dim count As Integer = 0
        Dim dr As DataRow
        Dim i As Integer
        For i = 0 To Studant2DataGridView.Rows.Count - 1
            dr = dt.Rows.Add
            If Label1.Text = "1" Then
                dr.Item("NUM") = Me.Studant2DataGridView.Item(0, i).Value.ToString
                dr.Item("Name") = Me.Studant2DataGridView.Item(1, i).Value.ToString
                dr.Item("T-S") = Me.Studant2DataGridView.Item(7, i).Value.ToString
                dr.Item("T-F") = Me.Studant2DataGridView.Item(8, i).Value.ToString
                dr.Item("T-M") = Me.Studant2DataGridView.Item(9, i).Value.ToString
                dr.Item("Note") = Me.Studant2DataGridView.Item(23, i).Value.ToString
                dr.Item("by") = Me.Studant2DataGridView.Item(25, i).Value.ToString
                printphone.print(dt)
                printphone.Show()
        
end sub

* ثم قم بانشاء Form جديد واضف اليه crystall report Veiwer من ال Tools
* من ال properties الخاصة بال crystall report veiwer قم باضافة كريستال ريبورت وختر Blank report
* افتح الcrystall report ثم اذهب الfiled explore ثم "right click " على Data base filed اختر Data base expert
*أضف ال جدول الموجود بال Data set او ال database ثم اختر ok
*اذهب مرة اخرى الى ال filed explore ثم database "+" ثم اسحب الحقول الى ال Detail Section
*الان تستطيع التحكم بالحقول "مثل الword"
*انظر الصور المرفقة للتوضيح
*الان اضف كود الطباعة في الفورم الجديد
كود :
Imports CrystalDecisions.CrystalReports.Engine
Public Class printinfo

    Public Function print(ByVal dt As DataTable)
      
        Dim e1 As New CrystalReportinfo
          e1.SetDataSource(dt)
        CrystalReportViewer1.ReportSource = e1
        Me.CrystalReportViewer1.RefreshReport()
        Return Nothing
    End Function


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#7
شكرا للرد اخي الكريم ولكن هل يستطيع المستخدم التحكم بابعاد الحقول
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع اكثر من field في الكريستال ريبورت نسيم 9 146 03-12-16, 10:15 PM
آخر رد: محمود بكرى
  عند استعراض التقرير تظهر هذه الرسالة hefa 13 750 18-09-16, 07:23 AM
آخر رد: نايف 2006
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 165 12-09-16, 12:25 AM
آخر رد: adel2012
  [سؤال] بخصوص محاذاة محتويات التقرير الي يمين الصفحة eldmasy11 0 116 01-08-16, 02:20 PM
آخر رد: eldmasy11
Lightbulb [VB.NET] حفظ التقرير - قواعد بيانات Kian Tech 2 145 18-06-16, 01:25 AM
آخر رد: Kian Tech
  طباعة التقرير من جدولين aftfm 19 466 09-06-16, 03:20 AM
آخر رد: حريف برمجة
  [سؤال] كيفية وضع الباركود داخل الكريستال ريبورت احمد عبد الحكيم 8 878 01-06-16, 09:02 PM
آخر رد: علي كعبي
  [سؤال] ارجو المساعدة رسالة خطاء عند طباعة التقرير من كريستال ريبورت 13 ahmed saleh 2 262 18-05-16, 03:52 AM
آخر رد: abdhassan
  أكثر من متغير في التقرير k_medhat 1 194 02-05-16, 11:24 AM
آخر رد: k_medhat
  إغلاق التقرير بعد الطباعة aftfm 1 201 13-03-16, 06:09 AM
آخر رد: khodor1985

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم