buton yardımıyla istenilen alanı yazıcıdan çıktı almak

[dbicer83]

ekteki dosyadaki ürünler kısmında ürünler değişecek bu sayfadan yaklaşı 50 adet var. her sayfada farklı ürünler ve farklı ürün sayısı yeralacak bunu nasıl yaparda yazıcıya a4 boyutunda ayarlayıp sadece dolu olan hücrelerin yazdırımasını istiyorum şimdiden

 

[Ferhat Pazarçevirdi]

Tek bir sayfayı yazdırmak için;

Sub TekSayfa_Yazdir()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$T$" & Cells(65536, 3).End(xlUp).Row
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Orientation = xlPortrait
    End With
    ActiveSheet.PrintOut
End Sub

Çoklu sayfa yazdırmak için

Sub CokSayfa_Yazdir()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
         With sh.PageSetup
            .PrintArea = "$A$1:$T$" & sh.Cells(65536, 3).End(xlUp).Row
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .Orientation = xlPortrait
         End With
         sh.PrintOut
    Next
End Sub

 

[dbicer83]

Tek bir sayfayı yazdırmak için;

Sub TekSayfa_Yazdir()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$T$" & Cells(65536, 3).End(xlUp).Row
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Orientation = xlPortrait
    End With
    ActiveSheet.PrintOut
End Sub

Çoklu sayfa yazdırmak için

Sub CokSayfa_Yazdir()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
         With sh.PageSetup
            .PrintArea = "$A$1:$T$" & sh.Cells(65536, 3).End(xlUp).Row
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .Orientation = xlPortrait
         End With
         sh.PrintOut
    Next
End Sub

öncelikle ilginizden dolayı teşekkürler şimdi eklemiş olduğum dosyadan yaklaşık 45-50 adet var bunları hersayfayı tek tek dolşarak çıktı almak yerine nasıl bir fonksiyon eklersem tek hamle ile istenile sayfa yada sayfaların nasıl çıktılarını alabilirim nasıl bir öneriniz olur yeri gelcek atıyorum 5 sayfa çıktısı yeri gelcek seçip 50sinide çıktı alabileceğim nasıl bir yol izlenebilir.

 

[Ferhat Pazarçevirdi]

Bu tablolar, bir Çalışma kitabının içinde 50-60 adet sheet'de mi yoksa 50-60 adet ayrı çalışma kitabında mı?

 

[dbicer83]

Bu tablolar, bir Çalışma kitabının içinde 50-60 adet sheet'de mi yoksa 50-60 adet ayrı çalışma kitabında mı?

sheet de çalışma sayfası tek fakat 50-60 sayfa sheet1....60

 

[dbicer83]

diğer bir eksiğimde buradaki 10 adet girişi tek giriş yapıpta bu girişleri hafızaya alıp toplanmasını istiyorum hergirişte en son girilen stoğa eklenilmesini istiyorum bu şekil bişi yapılabilirmi fakat yapılan girişin tarihiyle birlikte görülebilirmi yani istenilen zaman aralığında gelen ürünlerin listesini görmek istiyorum. ilginizden dolayı teşekkürler.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

ek bir buton koydum. Ona basınca, tüm sayfaların listesi gelir. İstediğiniz kadarını seçin. ve Yazdır butonuna basın. Ardı ardına yazdırılacaktır.

 

[dbicer83]

Ekteki dosyayı inceleyiniz.

ek bir buton koydum. Ona basınca, tüm sayfaların listesi gelir. İstediğiniz kadarını seçin. ve Yazdır butonuna basın. Ardı ardına yazdırılacaktır.

teşekkürler.

 

[dbicer83]

--------------------------------------------------------------------------------

diğer bir eksiğimde buradaki 10 adet girişi tek giriş yapıpta bu girişleri hafızaya alıp toplanmasını istiyorum hergirişte en son girilen stoğa eklenilmesini istiyorum bu şekil bişi yapılabilirmi fakat yapılan girişin tarihiyle birlikte görülebilirmi yani istenilen zaman aralığında gelen ürünlerin listesini görmek istiyorum. ilginizden dolayı teşekkürler.

 

[Ferhat Pazarçevirdi]

Görülebilir tabi ...

Ama ben tablonuzun boş hainden çok birşey anlamadım. Birkaç örnek veri ekleyip (birkaç sayfada) buradaki dosyanızı revize ediniz.

 

[dbicer83]

Görülebilir tabi ...

Ama ben tablonuzun boş hainden çok birşey anlamadım. Birkaç örnek veri ekleyip (birkaç sayfada) buradaki dosyanızı revize ediniz.

dosyayı ekliyorum ilginizden dolayı teşekkürler yarın dosya eklenmiş olacaktır şimdi çıkmam gerekiyor

 

[dbicer83]

Dosya Ektedİr

 

[Ferhat Pazarçevirdi]

Tek sütunda girişleri nasıl yapacaksınız, biraz açar mısınız konuyu?

 

[dbicer83]

Tek sütunda girişleri nasıl yapacaksınız, biraz açar mısınız konuyu?

Şimdi ben dosya vasıtasıyla işyerine ait stok - kasa- ödeme ve alımların takiplerini tutmak istiyorum normalde ekteki dosyada ürün girişleri için 10 adet girişi yeri ayırdım ama e-n sütünları aralığı bunu e sütününda toplayıp tek sütün sadece giriş için yer alacak. sürekli girişler olcak ama ben bunu istenilen zaman diliminde hangi firmadan hengi ürün veya ürünleri almışım fatura tutarlarını görmek istiyorum yapılabilirmi bu tür birşey.

 

[dbicer83]

birde bu u sütünundan sonrası görmek istemiyorum işlemde yapılmasın istiyorum. biraz çok şey istiyorum ama ilginizden dolayı çok teşekkürler emeğineize sağlık

 

[Ferhat Pazarçevirdi]

Bu tablo yapınızla, isteklerinizin karşılanması zor görünüyor. Tablolarınızın yapısı değiştirilirse mümkün olabilir. Ama, dosya için baya emek harcadığınız da belli ...

 

[dbicer83]

Bu tablo yapınızla, isteklerinizin karşılanması zor görünüyor. Tablolarınızın yapısı değiştirilirse mümkün olabilir. Ama, dosya için baya emek harcadığınız da belli ...

nasıl bir öneriniz olabilir peki önemli değil harcanan emek çünkü ben yeniyim acemiyim işin içinden çıkamadım netice olarak sizin nasıl bir öneriniz olur.benim bu dosya ile yapmak istediklerim
1- kasa takibi (kasa giriş çıkışları nakit pos vs. bunların datası tutulup istenilen zaman zarfında görülebilsin)
2-stok takibi (depo sayımı ile girilen stoklar yardımıya iki zaman dilimindekki satışları çıkarıp bu zaman dilimindeki kar durumları.
stoklar firmalara göre girilip firmaların depo durmları parasal sok tutarları
ödemelrinin takipler vs.

 

[dbicer83]

acaba dosya ile ilgili bir gelişme varmıdır?

 

[dbicer83]

Ferhat Pazarçevirdi acaba dosya ile ilgili bir gelişme varmıdır?

 

[Ferhat Pazarçevirdi]

Dosyanızın, benim düşündüğüm haliyle oldukça fazla işi var. Yani neredeyse, istediklerinizi karşılaması için; data tablolarının yapısı sıfırdan ele alınıp, tekrar kurgulanacak. Benim, buna ayıracak yeteri kadar vaktim ne yazık ki yok. Belki daha pratik çözümler üreten arakadaşlarımız çıkacaktır.

Ama bir başka yol olarak; parça parça yapmak istedikleriniz sorabilirsiniz. Daha kolay cevap alabilirsiniz.