למבינים בהדפסות
יש לי טופס ועליו PICTUREBOX - אני רוצה להדפיס את התמונה אבל: אני רוצה 2 אפשרויות - או להדפיס את הטופס כולו או רק את הפקד . הגעתי ב MSDN להסבר הבא והשורה הקריטית חסרה: Private Sub Command1_Click 1 () 1 Dim BeginPage, EndPage, NumCopies, Orientation, i 1 ´ Set Cancel to True. 1 CommonDialog1.CancelError = True 1 On Error GoTo ErrHandler 1 ´ Display the Print dialog box. 1 CommonDialog1.ShowPrinter 1 ´ Get user-selected values from the dialog box. 1 BeginPage = CommonDialog1.FromPage 1 EndPage = CommonDialog1.ToPage 1 NumCopies = CommonDialog1.Copies 1 Orientation = CommonDialog1.Orientation 1 For i = 1 to NumCopies 99 ´ Put code here to send data to your printer. 1 Next 1 Exit Sub ErrHandler1: 1 ´ User pressed Cancel button. 1 Exit Sub End Sub1 סימנתי את השורות בסיפרה 1 כדי שיצאו בסדר, אבל אני מדבר על שורה 99 - מי יכול להשלים או להסביר? תודה קרנל.
יש לי טופס ועליו PICTUREBOX - אני רוצה להדפיס את התמונה אבל: אני רוצה 2 אפשרויות - או להדפיס את הטופס כולו או רק את הפקד . הגעתי ב MSDN להסבר הבא והשורה הקריטית חסרה: Private Sub Command1_Click 1 () 1 Dim BeginPage, EndPage, NumCopies, Orientation, i 1 ´ Set Cancel to True. 1 CommonDialog1.CancelError = True 1 On Error GoTo ErrHandler 1 ´ Display the Print dialog box. 1 CommonDialog1.ShowPrinter 1 ´ Get user-selected values from the dialog box. 1 BeginPage = CommonDialog1.FromPage 1 EndPage = CommonDialog1.ToPage 1 NumCopies = CommonDialog1.Copies 1 Orientation = CommonDialog1.Orientation 1 For i = 1 to NumCopies 99 ´ Put code here to send data to your printer. 1 Next 1 Exit Sub ErrHandler1: 1 ´ User pressed Cancel button. 1 Exit Sub End Sub1 סימנתי את השורות בסיפרה 1 כדי שיצאו בסדר, אבל אני מדבר על שורה 99 - מי יכול להשלים או להסביר? תודה קרנל.