ön izleme ve yazdır

[ahmett46]

Slm arkadaşlar
Bir Excel sayfasını düğme ile ön izleme yaptırıp önizleme üzerine yazdır tuşu koyabilirmiyiz? Access te olduğu gibi. Teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Sheets("Sayfa1").PrintPreview
End Sub

 

[ahmett46]

Orion2 öncelikle teşekkür ediyorum. ön izlemedeki yazdır komutuna müdehale (düzenleme) olanağı varmı? yazdıra bir kere tıkladığımızda sayfa 1 i 3 nüsha yazdurabilirmiyiz.

 

[Ömer]

Merhaba

Sub OnizleYazdır()
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
End Sub

.

 

[ahmett46]

Kardeş excel sayfasına yerleştirebiliyoruz da ben bunu ön izleme sayfasına yerleştirebilirmiyiz demiştim. Yinede teşekkürlerimi sunuyorum. Ha bu arada Collate:=True anlamı ne bu ifadeyi ben hiç eklemiyordum.

 

[Orion1]

Orion2 öncelikle teşekkür ediyorum. ön izlemedeki yazdır komutuna müdehale (düzenleme) olanağı varmı? yazdıra bir kere tıkladığımızda sayfa 1 i 3 nüsha yazdurabilirmiyiz.

Ön izleme ekranında iken yazdır butonuna basıyorsunuz.
Çıkan userform'a kopya sayısına istediğiniz miktarı giriyorsunuz.

 

[mesuttasar]

Üstadım öncelikle bayramınız mübarek olsun, yazdırma alanını biz nasıl belirleyebiliriz bu durumda? Hangi kodları ilave etmemiz gerekir?

 

[Orion1]

Üstadım öncelikle bayramınız mübarek olsun, yazdırma alanını biz nasıl belirleyebiliriz bu durumda? Hangi kodları ilave etmemiz gerekir?

Aşağıdaki kod a1:b20 arlığını yazdırma alanı olarak belirliyor.

ActiveSheet.PageSetup.PrintArea = "A1:B20"

 

[mesuttasar]

Aşağıdaki kod a1:b20 arlığını yazdırma alanı olarak belirliyor.

ActiveSheet.PageSetup.PrintArea = "A1:B20"

Üstadım onu biliyorum, istediğim mouse yardımı ile yazdırma alanını belirlemek istiyorum.Onu nasıl belirtebilirim?:hihoho:

 

[Orion1]

Önce yazdırılacak alanı mouse ile seçiniz.
Dosya==>Yazdırma alanı==>yazdırma alnını belirle
İşlem tamamdır.

 

[mesuttasar]

Önce yazdırılacak alanı mouse ile seçiniz.
Dosya==>Yazdırma alanı==>yazdırma alnını belirle
İşlem tamamdır.

Üstadım bunu userform da iken yapmak istiyorum.Şöyleki; yazdır butonunda yazdırılacak alanı seç diye bir mesaj kutusu , sonra mouse yardımı ile alanı seçmek istiyorum.


Yani ;

a=Selections.Cells -------------------- Böyle birşey olabilirmi?
ActiveSheet.PageSetup.PrintArea = "a"

burada a yı nasıl tanımlayabilirim.​

 

[mesuttasar]

Sayın üstatlarım cevap bekliyorum sanırım gözden kaçtı.Son mesajımdaki sorunumu hala çözemedim. Yardımlarınızı bekliyorum.

 

[cebir]

merhaba..

Private Sub CommandButton1_Click()
a = TextBox1.Value
ActiveSheet.PageSetup.PrintArea = a
End Sub
textbox'a hücre aralığı şöyle yazılmalı: $b$1:$e$20

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
On Error GoTo son
Dim adrs As String
adrs = Selection.Address
ActiveSheet.PageSetup.PrintArea = adrs
UserForm1.Hide
ActiveSheet.PrintPreview
UserForm1.Show
son:

End Sub

 

[mesuttasar]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
On Error GoTo son
Dim adrs As String
adrs = Selection.Address
ActiveSheet.PageSetup.PrintArea = adrs
UserForm1.Hide
ActiveSheet.PrintPreview
UserForm1.Show
son:
 
End Sub

Üstadım sağolun çözüm için.
:hihoho: