مرااااااااااااااااااااحب :happy:
كيف اقدر احدد مكان التكست عند الطباعة على ورقة من نوع A4
يعني اقدر احدد المكان بشكل دقيق مثل Top, Left ...
بحاول كتير بس مابيطلع بالمكان المطلوب
وغير هيك مابعرف غير احرك التكست يمين وشمال بس :S
شو الحل
طلب مساعدة في الطباعة على ورق من نوع A4
مرحباً أخي الكريم .
جرب المثال التالي :
Imports System.Drawing
Imports System.Drawing.Printing
Public Class Form1
Private WithEvents DocToPrint As New PrintDocument
Private _Left, _Top, _Right, _Bottom As Single
Private _JustABitmap As New Bitmap("C:\BVSCORP.jpg")
Private Sub DocToPrint_PrintPage(ByVal Sender As Object _
, ByVal E As System.Drawing.Printing.PrintPageEventArgs) Handles DocToPrint.PrintPage
Dim PageSize As Size = E.PageBounds.Size
E.Graphics.DrawImage(_JustABitmap, New Rectangle(_Left, _Top _
, PageSize.Width - (_Left + _Right), PageSize.Height - (_Top + _Bottom)) _
, New Rectangle(New Point(0, 0), _JustABitmap.Size), GraphicsUnit.Pixel)
E.Graphics.FillRectangle(Brushes.Gray, New Rectangle(_Left, _Top, 100, Font.Height))
E.Graphics.DrawString("This is just a Bitmap", Font, Brushes.White, _Left, _Top)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
_Left = 10 : _Top = 10 : _Right = 10 : _Bottom = 10
DocToPrint.DefaultPageSettings.PaperSize = DocToPrint.PrinterSettings.PaperSizes(8) ' A4
DocToPrint.Print()
End Sub
End Class
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 23 ديسمبر 2008 في 07:45
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
شكراً أخي بس انا بدي اطبع textbox ولازم حدد مكان كل صندوق :blink:
مرحباً أخي الكريم .
هل يمكنك أن توضح بشكل ادق ...
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
Bashar Rabat كتب:مرحباً أخي الكريم .هل يمكنك أن توضح بشكل ادق ...
اهلا أخي بشار
انا اريد طباعة TextBox بس احتاج تحديد موقع كل نص على الورقة مثلاً
نجيب فاتورة موبايل بس مكان الاسم والرقم وباقي التفاصيل فارغ يحتاج تعبئ انا هون بدي اطبع من البرنامج كلمات
بالمكان المحدد يعني بالعربي ال لوكاشن لكل بوكس
مثل هدا
TextBox1Location = New Point(312, 60)
UP
-_-
طيب أفضل حل استعمل التقارير ويكون ذلك بكتابة النصوص الثابتة في التقرير وبعد ذلك تعمل اغات ترسل فيها باريمترات البارميتر هذا يأخذ قيمة التكست بوكس وهناك أمثله في قسم التقارير
مرحباً أخي الكريم .
يمكنك الاستعانة بأي برنامج رسم لتصميم الفاتورة ومن ثم تقدير أماكن الحقول الفارغة .. وبالنسبة للطباعة سأحاول إنشاء مشروع يساعدك على تطوير مستواك الإبداعي في هذا المجال .
وإذا أردت تجربة شيء ما من صنعك, فجرب رسم النصوص بالاستخدام DrawString ولكي توفر على نفسك العناء جربهم على Bitmap(s) كالتالي :
Private Sub DrawStuff()
Dim BMP As New Bitmap( 600, 900 )
Dim OBackgroundImage As Image = Image.FromFile( "C:\Bill.jpg" )
Using G As Graphics = Graphics.FromImage( BMP )
G.DrawImage( OBackground, 0, 0 )
G.DrawString( TextBox1.Text, Font, Brushes.Black, 312, 20 )
G.DrawString( TextBox2.Text, Font, Brushes.Black, 312, 45 )
G.DrawString( TextBox3.Text, Font, Brushes.Black, 312, 70 )
BMP.Save( My.Computer.FileSystem.SpecialDirectories.DesktoP & "\NewBill.jpg", Drawing.Imaging.ImageFormat.Jpeg" )
End Sub
Private Sub Button1_click( Byval Sender AS System.Object, Byval E As System.EventArgs ) Handles Button1.Click
DrawStuff()
End Sub
الكود السابق يستخدم ( OBackgroundImage كخلفية ( خلفية الفاتورة ) ) , ( TextBox1 الاسم الكامل ( على سبيل المثال ) ) , ( TextBox2 رقم الجوال ( على سبيل المثال ) ) , الخ..
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
ممممممممم
انا مشكلتي مو عارف اوصل طلبي بشكل صحيح
التقارير للاسف مابينفع معي
طيب ممكن على الايميل اعطيك قسم من مشروعي وتشوف انا شو بعمل أكيد راح تفهم طلبي
وشكراً كتييييييييير ع/الاهتمام
طيب, OK :P .
basharvs@hotmail.com
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.