تقييم الموضوع :
  • 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
شكرا للرد اخي الكريم ولكن هل يستطيع المستخدم التحكم بابعاد الحقول
الرد }}}
تم الشكر بواسطة:



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


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