تقييم الموضوع :
  • 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 في الكريستال ريبورت نسيم 11 1,151 06-10-17, 10:28 AM
آخر رد: IBRA939
  [VB.NET] طباعة التقرير مباشرة بالكود AHMED SHARAF 1 89 24-09-17, 04:31 PM
آخر رد: wale90
  [VB.NET] مشكلة بعد تحزيم البرنامج التقرير لايظهر وتاتي رساله خطأ ان وفيت 5 124 22-09-17, 02:47 PM
آخر رد: Amir_alzubidy
  عند استعراض التقرير تظهر هذه الرسالة hefa 14 1,630 11-07-17, 12:14 AM
آخر رد: أبو راشد عبدالوهاب
  [سؤال] كيف يمكن إرسال الصورة الموجودة داخل PictureBox1 إلى تقرير الكريستال ريبورت matrixmas 0 125 20-06-17, 11:51 PM
آخر رد: matrixmas
  استفسار حول التقرير من أكثر من جدول المتألق9 0 113 18-06-17, 03:10 PM
آخر رد: المتألق9
  [سؤال] كيف ارسل قيمة الى حقل في التقرير الراشيدي 0 144 05-06-17, 05:19 PM
آخر رد: الراشيدي
  طباعة التقرير aftfm 7 325 18-05-17, 05:30 PM
آخر رد: alma2
  [سؤال] مشكل في ظهور البيانات داخل التقرير youssef mester 0 238 18-02-17, 03:19 AM
آخر رد: youssef mester
  كيفية عمل ترقيم تلقائي في الكرستال ريبورت ؟ kooora 3 2,087 26-01-17, 08:10 PM
آخر رد: السيد الجوهري

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


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