أستاذ @jjafferr الله يصلح حالك يارب ويجزيك خير وربى انا شوفت كل موضوعات المسح الضوئى من البحث قبل ما اكتب الموضوع للعلم حاولت تعديل الكود هذا الكود الاصلى Public Sub ScanDocs() Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" Dim strFileName As String Dim Dialog1 As New WIA.CommonDialog, DPI As Integer, PP As Integer, l As Integer Dim Scanner As WIA.Device Dim img As WIA.ImageFile Dim intPages As Integer Dim strFileJPG As String Dim i As Integer Dim blnContScan As Boolean