+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : كيفية تحكم بابعاد الحقول والخطوط داخل التقرير (/showthread.php?tid=2167)
كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - محاسب يوسف - 08-03-14
السلام عليكم
لدي تقرير يحتوي 7 حقول هل يوجد طريقة للتحكم بمسافات الحقول عن طريق فورم خارجي والخطوط وزيادة المسافات بينهما
RE: كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - Genius Live - 08-03-14
طيب قول لنا اولا ما هو نوع التقرير الذي تستخدمه ؟
وما نوع طريقة الربط ؟
وبإذن الله محلوله مقدماً ...
RE: كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - محاسب يوسف - 08-03-14
شكرا للرد اخي الكريم
كريستال ريبورت
داتا سيت
شكرا للرد مرة ثانية اخي الكريم
هل يمكن توسيع السطر برمجيا في التقرير ايضا
RE: كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - محاسب يوسف - 08-03-14
مثال صغير
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()
RE: كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - محاسب يوسف - 10-03-14
السلام عليكم كيفية التحكم بابعاد الحقول بالطباعة
RE: كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - yousef - 11-03-14
السلام عليكم
استخدم هذا الكود لطباعة الداتا جرد الموجودة في الفورم
كود :
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 FunctionRE: كيفية تحكم بابعاد الحقول والخطوط داخل التقرير - محاسب يوسف - 15-03-14
شكرا للرد اخي الكريم ولكن هل يستطيع المستخدم التحكم بابعاد الحقول