הדפסת Datagrid - תמיר
תשובה לתמיר - כמו שמתכנתים אומרים, ``אצלי זה עובד...`` בנה טופס עם Datagrid, CommandButton,AdoControl חבר את ה control לטבלה כלשהיא, ואת ה datagrid ל Ado control הוסף את הקוד הבא לטופס Private Sub Command1_Click() With DataGrid1 .Width = Me.Width - 100 .Height = 4000 End With DoEvents Printer.PaintPicture DataGrid1.CaptureImage, 30, 30 Printer.EndDoc End Sub שים לב, הרחבתי את הDatagrid (יהיה יפה אם תחשב את הערכים) כך שהתמונה המודפסת תהיה גדולה יותר.
תשובה לתמיר - כמו שמתכנתים אומרים, ``אצלי זה עובד...`` בנה טופס עם Datagrid, CommandButton,AdoControl חבר את ה control לטבלה כלשהיא, ואת ה datagrid ל Ado control הוסף את הקוד הבא לטופס Private Sub Command1_Click() With DataGrid1 .Width = Me.Width - 100 .Height = 4000 End With DoEvents Printer.PaintPicture DataGrid1.CaptureImage, 30, 30 Printer.EndDoc End Sub שים לב, הרחבתי את הDatagrid (יהיה יפה אם תחשב את הערכים) כך שהתמונה המודפסת תהיה גדולה יותר.