Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 16-07-2017, 20:56   #1
BedriA
Altın Üye
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 450
Excel Vers. ve Dili:
2007, 32
Varsayılan VBA Kodu Yardım: Optik Forma İsim Yazdırma

Arkadaşlar,

Örnek dosyada iki sayfam var.
Listedeki öğrenci bilgilerini sırayla Optik Forma gönderip formu, PDF ismi öğrencinin numarası olacak şekilde, A5 boyutunda, PDF olarak basmak istiyorum.

Bu işlem hiç durmadan listedeki son öğrenciye kadar devam edecek.
Formlar programın klasörü içinde, yine kod ile açılacak ve sınıfın ismini alacak bir klasöre kaydolacak.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek Dosya.xlsm (25.3 KB, 16 Görüntülenme)
__________________
Mutluluğun kodunu yazabilir misin Abidin?
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 22:15   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,912
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
BedriA tarafından gönderildi Mesajı Görüntüle
Arkadaşlar,

Örnek dosyada iki sayfam var.
Listedeki öğrenci bilgilerini sırayla Optik Forma gönderip formu, PDF ismi öğrencinin numarası olacak şekilde, A5 boyutunda, PDF olarak basmak istiyorum.

Bu işlem hiç durmadan listedeki son öğrenciye kadar devam edecek.
Formlar programın klasörü içinde, yine kod ile açılacak ve sınıfın ismini alacak bir klasöre kaydolacak.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.
Aşağıdaki şekilde deneyiniz.
Sayfanın yazıcı ayarlarından A5 yatay yada dikey seçip ayarladıktan sonra programı kaydedip tekrar açıp deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub pdf_kaydet()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Set shliste = Sheets("SinifListesi")
   Set shoptik = Sheets("Optik")
   yol = ActiveWorkbook.Path & "\"
   
   sonsatir = shliste.Cells(Rows.Count, "A").End(3).Row
   For i = 2 To sonsatir
      sinif = shliste.Cells(i, 1).Value
      numara = shliste.Cells(i, 2).Value
      ogrenci = shliste.Cells(i, 3).Value
      
      shoptik.Cells(2, "A").Value = ogrenci
      shoptik.Cells(3, "A").Value = sinif
      shoptik.Cells(4, "A").Value = numara

      yeniklasor = yol & sinif
      dosya = yeniklasor & "\" & ogrenci & "-" & numara

      If Dir(yeniklasor, vbDirectory) = "" Then MkDir yeniklasor

      shoptik.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosya, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

   Next i
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 22:25   #3
BedriA
Altın Üye
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 450
Excel Vers. ve Dili:
2007, 32
Varsayılan

Asri Hocam,

Harikasınız.

Çok teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: rar 0001 - 0001.rar (14.8 KB, 3 Görüntülenme)
__________________
Mutluluğun kodunu yazabilir misin Abidin?

Bu mesaj en son " 17-07-2017 " tarihinde saat 15:40 itibariyle BedriA tarafından düzenlenmiştir....
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:49


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Pronet- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden