- Katılım
- 6 Temmuz 2008
- Mesajlar
- 1,875
- Excel Vers. ve Dili
- OFFİCE 2010- TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 22-12-2019
Hayırlı günler arkadaşlar,
Aşağıdaki kodlar ile pdf azdırıyorum fakat yazıcı koşulu ekleyemedim ?
Kırmızı satırdaki kod ile tanımlama yapıyorum fakat yine de diğer yazıcıya gidiyor
Aşağıdaki kodlar ile pdf azdırıyorum fakat yazıcı koşulu ekleyemedim ?
Kırmızı satırdaki kod ile tanımlama yapıyorum fakat yine de diğer yazıcıya gidiyor
Kod:
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 Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2
Dim yol
Sub Yazdır()
Dim ds, a
Set ft = Sheets("FaturaTakip")
dosya = Cells(ActiveCell.Row, "E").Value
yol = ThisWorkbook.Path & "\Faturalar\" & dosya & ".pdf"
If Dir(yol) = "" Then MsgBox dosya & " Nolu Fatura Klasörde Bulunamadı!!!", vbCritical + vbOKOnly, "Hata": End
[COLOR="Red"][B]Application.ActivePrinter = ft.Range("J1")[/B][/COLOR]
'ShellExecute Application.hwnd, "open", yol, vbNullString, left(yol,3), SW_SHOWNORMAL
ShellExecute Application.hwnd, "print", yol, vbNullString, Left(yol, 3), SW_HIDE
End Sub