Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    Anasayfa » Forum Anasayfa » Kategori: Visual Basic 6.0
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Mumkun olan tum pencereleri uzerine tiklayarak tasimak.

Yazar: Ramci

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?

"PDF Format?nda Kaydetme"

A?a??da yaz?l? komutlar? kullanarak Excel sayfas?n? PDF format?na çeviriyorum. Ancak her seferinde program? kapat?p yeniden açmak gerekiyor.

Acaba nerede hata yapt?m. Yard?m?n?z? bekliyorum.

Private Sub Command1_Click()

On Error Resume Next
Dim Excel As Object
Dim A As Integer
Text5.Text = Data3.Recordset("ALAN")
Set Excel = CreateObject("excel.application")
With Excel
.Workbooks.Open lblDosya.Caption
.Visible = True
.Application.WindowState = 1
End With

'Önce ba?ka bir yaz?c? tan?mlamak gerekiyor.
    Application.ActivePrinter = "Ne03: üzerindeki RICOH Aficio 2020D PCL 6 "

Clipboard.Clear

SendKeys Text5.Text & Text2.Text & " " & Format(Now, "dmm hmm")  'Text1.Text
SendKeys "^v" 'paste
SendKeys "{ENTER}"
   

'sonra pdf olarak tan?mlamak gerekiyor..   
  Application.ActivePrinter = "Ne10: üzerindeki Foxit Reader PDF Printer "
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Ne10: üzerindeki Foxit Reader PDF Printer ", Collate:=True

Excel.Quit
Excel.Visible = False

Set Excel = Nothing
  
Data1.Recordset.AddNew
Data1.Recordset("ADISOYADI") = SSDBCombo1.Text
Data1.Recordset("surukle") = Text5.Text & Text2.Text & " " & Format(Now, "dmm hmm") & ".PDF"
Data1.Recordset.Update
  
End Sub



Üyeye Özelden Mesaj At NADIRYK | 18.07.2014 11:49



Tüm Kategoriler | Visual Basic 6.0 | Visual Basic 6.0  1. Sayfa
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin