ועוד שאלה קטנטונת

[כפיר Kfir]

ועוד שאלה קטנטונת

אני מנסה להדפיס באמצע אך זה מדפיס לי רק שורה ראשונה כל הזמן. מישהו יכול להביא לי קוד שזה ידפיס את כל השורות באמצע?

 

[VB-Hakcer-Boy-daniel]

תן לי את הקוד נראה לי שאני מבין

כנראה נתת לו שדה של כתב אחד... או שפשוט הקוד לא מלא תן לי את הקוד ואני ינסה לעזור בברכה, דניאל.

 

[כפיר Kfir]

אם אני לוחץ על Command Button

Private Sub Command1_Click() Dim allText Dim printWidth allText = RichTextBox1.Text printWidth = Printer.TextWidth(allText) / 2 Printer.CurrentX = Printer.ScaleWidth / 2 - printWidth Printer.Print allText Printer.EndDoc End Sub

 

[VB-Hakcer-Boy-daniel]

אז הנה הבעיה במפורט! תקרא...

קודם כל תעשה לו במקום 2 תעשה לו מספר יותר גבוה עכשיו... למה זה לא הדפיס לך 2 שורות? כי עשית לו 2- ככה שזה הוריד לו את המשמעות לשורה אחת... תתקן את זה ואז תבדוק... בהצלחה. ובברכה, דניאל.

 

[VBmaster]

לכפיר, אתה צריך לדייק...

השאלה שלך בכלל לא ברורה. אתה מדפיס את הנתונים שלך למדפסת ? אם אתה מדפיס אז מהיכן אתה לוקח את התוכן שלך מ TextBox או שמה מ RithTextBox תדייק בשאלה ותקבל תשובה מיידית. VBmaster