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
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 736
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)
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 22:15   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,272
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 736
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, 5 Görüntülenme)
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal

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 13:16


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden