خزاني

اجعل العدد المطلوب للطباعة في الخليفة ("A1") الكود Sub Macro1() Dim Nbp As Byte With Sheets("المبيعات") Nbp = .Range("A1").Value For p = 1 To Nbp .Range("L28") = p .PrintOut Copies:=2, Collate:=True Next .Range("L28") = "" End With End Sub

جربة هذا الكود اخي ان كنت تملك جهاز(douchette)قارئ الباركود Function Scanne() ' *Fonction de récupération du nom labo* ' -------------------------------------- 'Fonction permettant de récupérer le "nom labo" à partir de la douchette. Lorsque l'on scanne, 'le nom apparait dans une inputbox. Celui-ci peut-être récupéré par la fonction qui à appelé 'cette fonction. ' 'Dim Repscan As String Repscan = InputBox("Veuillez scanner l'instrument ou entrer son nom propre au laboratoire") 'Boite de dialogue demander de scanner l'instrument Scanne = Repscan End Function Private Sub CommandButton1_Click() Range("A" & 1).Value = Scanne End Sub

سلمت وسلمت يداك

()Private Sub workbook_open Application.DisplayFullScreen = True Application.Visible = False UserForm1.Show End Sub

مثال تطبيقي Codebaar.rar

قد يكون إجابة سخيفة ولكن ناجحة EAN13تحويل الى الباركود Range("D2").Select With Selection.Font .Name = "Code EAN13" .Size = 7 End With Codebaar.rar

bak100.rar

عمل رائع بكل ما تحمل كلمة بارك الله فيك على هذا العمل المتميز وجزيت خيراً

khezzaniB.rar

بسم الله ما شاء الله تبارك الله تقبلوا منى وافر الاحترام والتقدير

مرورك أسعدني وشرفني بارك الله فيكم وجزاكم خيرا اللهم يتقبل منا ومنكم صالح الأعمال مع تحياتي

khezzaniRech.rar

khezzani.rar

Bak2.rar

bak1.rar

. Sub Imprime() Application.Goto Reference:='Plage' With ActiveSheet.PageSetup .CenterVertically = True .CenterHorizontally = True .Orientation = xlPortrait Selection.PrintOut Copies:=4, Preview:=False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range('A1').Select End Sub

bak.rar

بارك الله فيكم وجزاكم الله خيرا

تفقيط.rar

تفقيط.rar

جزاكم الله خيرا ونفعنا الله بك

بارك اللة فيك اخى محمد علي الطيب جزاك الله كل خير

أخي الكريم / سردوك قم بعمل تصور لفكرتك واعرضه وجميع الاخوة معك خطوة خطوة ان شاء الله الي ان تصل الي مبتغااك تقبل تحياتي

أخي الكريم قم بعمل تصور لفكرتك واعرضه وجميع الاخوة معك خطوة خطوة ان شاء الله الي ان تصل الي مبتغااك تقبل تحياتي

رائع جداً . أسأل الله العلي القدير أن يزيدك من فضله ويجعله في ميزان حسناتك.