Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
15/06/2017 16:59
Konu Sahibi
Uğur ŞİRİN
Yorumlar
5
Okunma
826
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Uğur ŞİRİN

Uğur ŞİRİN

Aktif Üye
90528
Uğ.... Şİ....
 Belirtilmemiş
 11
 37
 05/06/2017
10
 
 
 
 03/10/2017,20:48
Çözüldü 
Merhaba, 

Shellexecute sınıfı ile haricen bir dosyayı (excel, ppt, bmp, jpg, pdf, doc vb.) yazdır komutu göndermek mümkün mü ?


Örnek olarak;

Uygulamada butonu tıklar tıklamaz c:\xxx.xxx dosyasına yazdır komutu gönderecek..




Uğur ŞİRİN

Uğur ŞİRİN

Aktif Üye
90528
Uğ.... Şİ....
 Belirtilmemiş
 11
 37
 05/06/2017
10
 
 
 
 03/10/2017,20:48
(15/06/2017 16:59)Uğur ŞİRİN Adlı Kullanıcıdan Alıntı: Merhaba, 

Shellexecute sınıfı ile haricen bir dosyayı (excel, ppt, bmp, jpg, pdf, doc vb.) yazdır komutu göndermek mümkün mü ?


Örnek olarak;

Uygulamada butonu tıklar tıklamaz c:\xxx.xxx dosyasına yazdır komutu gönderecek..


Şunu buldum ama sizce işe yarar mı ? 


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Const SW_SHOWNORMAL = 1
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
Private Sub Command4_Click()
Dim PrintIt As Long
'PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", -1)
PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", SW_SHOWNORMAL)
End Sub



...........
Uğur ŞİRİN

Uğur ŞİRİN

Aktif Üye
90528
Uğ.... Şİ....
 Belirtilmemiş
 11
 37
 05/06/2017
10
 
 
 
 03/10/2017,20:48
(15/06/2017 17:01)Uğur ŞİRİN Adlı Kullanıcıdan Alıntı:
(15/06/2017 16:59)Uğur ŞİRİN Adlı Kullanıcıdan Alıntı: Merhaba, 

Shellexecute sınıfı ile haricen bir dosyayı (excel, ppt, bmp, jpg, pdf, doc vb.) yazdır komutu göndermek mümkün mü ?


Örnek olarak;

Uygulamada butonu tıklar tıklamaz c:\xxx.xxx dosyasına yazdır komutu gönderecek..


Şunu buldum ama sizce işe yarar mı ? 


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Const SW_SHOWNORMAL = 1
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
Private Sub Command4_Click()
Dim PrintIt As Long
'PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", -1)
PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", SW_SHOWNORMAL)
End Sub



Uyguladığımda 

'Option' statements must precede any declerations or "Imports" statements.

'hwnd' is not a member of "WindowsApplication1.form1'.

hatalarını alıyorum.



Uğur ŞİRİN

Uğur ŞİRİN

Aktif Üye
90528
Uğ.... Şİ....
 Belirtilmemiş
 11
 37
 05/06/2017
10
 
 
 
 03/10/2017,20:48
'Option' statements must precede any declerations or "Imports" statements.

Hatasını giderdim.


Ancak halen aşağıdaki hatayı alıyorum.

'hwnd' is not a member of "WindowsApplication1.form1'.




...........
Uğur ŞİRİN

Uğur ŞİRİN

Aktif Üye
90528
Uğ.... Şİ....
 Belirtilmemiş
 11
 37
 05/06/2017
10
 
 
 
 03/10/2017,20:48
Çözümü buldum. "me.hwnd" yerine "me.handle" kullandım ve düzeldi.



Uğur ŞİRİN

Uğur ŞİRİN

Aktif Üye
90528
Uğ.... Şİ....
 Belirtilmemiş
 11
 37
 05/06/2017
10
 
 
 
 03/10/2017,20:48
Çalışan kodun son durumu: 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit On
Public Class Form1
    Const SW_SHOWNORMAL = 1


    Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

    Private Sub Command4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command4.Click
        Dim PrintIt As Long
        'PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", -1)
        PrintIt = ShellExecute(Me.Handle, "print", "D:\MyDoc.Doc", "", "", SW_SHOWNORMAL)
    End Sub

End Class



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Klavye testi Len komutu |By|KiDnArUt| 4 2.530 12/04/2013, 18:31
Son Yorum: |By|KiDnArUt|
Çözüldü visual basic de karışık işlem komutu nasıl verilir? pc_ogretmeni 2 1.937 06/03/2010, 11:31
Son Yorum: pc_ogretmeni
Çözüldü shell komutu hatası ancyra 0 1.952 07/09/2009, 11:56
Son Yorum: ancyra

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.