Kod Hatası - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: Kod Hatası (/konu-kod-hatasi--80279.html) |
Cvp: Kod Hatası - KulAhmet - 23/04/2015 Sn kübrashn; Asagida ki kodu deneyin. private Declare Function Calistir Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, _ ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long Private Const SW_HIDE = 0 Private Const SW_SHOWNORMAL = 1 Private Const SW_PRINTNORMAL = 2 Public Function Kostur(DosyaAdi As String, Optional DosyaIslem As String = "print") As Boolean Dim CalIslem As Long CalIslem = Calistir(0&, DosyaIslem, DosyaAdi, vbNullString, vbNullString, IIf(DosyaIslem = "print", SW_HIDE, SW_PRINTNORMAL)) If CalIslem <= 32 Then MsgBox CalIslem & "-->" & DosyaAdi Kostur = False MsgBox "Hatali " & DosyaIslem & " " & DosyaAdi & vbCrLf & vbCrLf & "Islem yapilamadi.", vbExclamation Else Kostur = True End If End Function Private Sub Yaz_Click() Dim evn As Object, klasor As Object, dosya As Object, yol, Tip As Variant, Msg, Yer Msg = MsgBox("Yazdýrmak Ýstediðinizden Emin misiniz?", vbYesNo + vbQuestion, "Çýkýþ") Yer = App.Path Tip = Array("Application", "Bitmap image") If Msg = vbYes Then Set evn = CreateObject("shell.application") yol = CreateObject("scripting.filesystemobject").getfolder(Yer) Set klasor = evn.Namespace(yol) Set dosya = klasor.Items() For Each dosya In dosya If Mid(dosya.Type, 1, 9) = "Microsoft" Then Call Kostur(Yer & "\" & dosya.Name, "Print") Me.Mesaj.Text = dosya Me.Mesaj.Refresh End If Next Set dosya = Nothing: Set klasor = Nothing Set yol = Nothing: Set evn = Nothing End ElseIf Msg = vbNo Then Exit Sub End If End Sub Cvp: Kod Hatası - kübrashn - 23/04/2015 Cümleten hayirli kandiller. Sizinde kandiliniz mübarek olsun Ahmet Bey. Însallah yarin deneyip yazacagim. Hayirli geceler. Cvp: Kod Hatası - kübrashn - 24/04/2015 Hayırlı sabahlar Hayırlı Cumalar arkadaşlar. Ahmet Bey "Me.Mesaj.Text = dosya" bu kısımda hata veriyor. Ayrıca form ve proje ektedir. Ya bu türlü yapamadım kolay yaparım diye düşünmüştüm. İlk başladığım noktada arkadaşlar uygulamanın form üzerinden hangi dosya nın içindeki pdf leri yazdırmak istiyorsunuz? diye sorsa öyle devam etse dediklerinde ben uygulamanın içinde bulunduğu klasörün içindekileri yazdırması daha kolay demiştim, yanılmışım.( Cvp: Kod Hatası - KulAhmet - 25/04/2015 Sn kübrashn, Kodlarda ki nesneleri olusturma ile kodlar calisacaktir. Kod:
Private Declare Function Calistir Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, _ Cvp: Kod Hatası - kübrashn - 27/04/2015 Hayırlı akşamlar Ahmet Bey. Bugün akşama kadar proje kısmını oluşturmayı denedim başaramadım. Açlık başıma vurdu sanırım. İftardan sonra denemeye devam edeceğim. Umarım kızmazsınız bana. Hakkınızı helal edin. Ayrıca Basic yülkü olmayan bir bilgisayarda çalıştırmayı denedim. Project1 Component COMDLG32.OCX or one of its dependencies not correctly registered: a file missing or invalid hatası verdi. Çok teşekkürler Cvp: Kod Hatası - KulAhmet - 27/04/2015 Sn kübrashn; ALLAH kabul etsin. Ek'te ki uygulamada dll ile formlara bakabilirsiniz. Once ki mesajda ki exe'yi hic calistiramadiniz mi? |