Print alamıyorum

[gazicemal]

Merhabalar,

benim sorunum oluşturmuş olduğum userformu çıktı olarak alamıyorum. acaba kodlar da bir hatamı var yoksa başka birşeymi??

Öncelikle bu userform çıktı olarak başka bir bilgisayardan alınabiliyordu ancak o bilgisayar da xp ve office 2003 kurulu benim şuanki bilgisayarımda vista ve office 2007 kurulu acaba sorun nedir

exceli de ekte gönderiyorum şimdiden teşekkürler?

 

[erzen]

kodu aşağıdaki şekilde değiştirin.

On Error Resume Next
ad = InputBox("Kaç Adet Çıktı İstiyorsunuz")

For x = 1 To 28
Controls("label" & x).Visible = False
Next
CommandButton1.Visible = False
For x = 1 To [ad]

Next
For x = 1 To 28
Controls("label" & x).Visible = True
Next
CommandButton1.Visible = True
karantina.PrintForm

 

[gazicemal]

Sayın Erzen Bey;

Sorun çözüldü ilginiz için teşekkürler...