form yazdırma sorununa yardım lütfen

[kalite14]

merhabalar
hazırlamış olduğun form taslağında boşluklarını doldurduktan sonra yazıcıya gönderdiğimde sadece doldurduğum alanların ( formda mavi renk ile gösterilen alanlar) hazır basılı form üzerine yazdırılmasını istiyorum bu şekilde yazdırmak mümkünmüdür acil yardım lütfen

 

[Orion1]

gözükmeyecek hücrelerin font rengini beyaza çevirip sonra yazdırmayı deneyin.

 

[kalite14]

ilginiz için teşekkürler
bu söylediğinizi bende düşündüm ama her defasında rengi değiştirmek çok zahmetli ve büyük zaman kaybı bunun nedenide şu, bu form her defasında yeniden bilgileri değiştirerek yazılacak yani yazılan satırın karşısında o alanda ne istendiğinin görülmesinde fayda olacağını düşünüyorum bunun için bu yazdırma işleminde farklı bir yol olabileceği düşüncesi içerisindeyim.yardımlarınızı bekliyorum

 

[Orion1]

ilginiz için teşekkürler
bu söylediğinizi bende düşündüm ama her defasında rengi değiştirmek çok zahmetli ve büyük zaman kaybı bunun nedenide şu, bu form her defasında yeniden bilgileri değiştirerek yazılacak yani yazılan satırın karşısında o alanda ne istendiğinin görülmesinde fayda olacağını düşünüyorum bunun için bu yazdırma işleminde farklı bir yol olabileceği düşüncesi içerisindeyim.yardımlarınızı bekliyorum

O zaman ben bir kod yazayım,yazdırmayı o kodla yapalım.yazdırmazdan önce fontları beyaz yapsın. yazdırsın sonra tekrar siyah renk yapsın.Bunuda bir butona bağlıyayım.Olurmu istermisiniz?

 

[kalite14]

söylediğinizi denemekte fayda var yardımlarınızı bekliyorum

 

[Orion1]

Başka bir şey düşündüm.
yazdır diye bir sayfa ekleyin.satır ve sütun aralıklarınıda ayni kontrol formu gibi yapın.sonrada formüllede sadece mavi font olan alanları alın buraya.kenarlık falan yapmayın yalnız.sonrada yazdırın.

 

[kalite14]

bunu bu hafta sonu deniyeceğim.kusura bakmayın bir sorum daha olacak bu konudada yardımcı olabilirmisiniz acaba
bu formu her doldurduğumda yedekleme şansımız varmı acaba

 

[Orion1]

bunu bu hafta sonu deniyeceğim.kusura bakmayın bir sorum daha olacak bu konudada yardımcı olabilirmisiniz acaba
bu formu her doldurduğumda yedekleme şansımız varmı acaba

Var. O sayfayı dışarıya ayrı bir excel dosyası olarak atarız.

 

[kalite14]

iyi hoş dedinizde ben bunu nasıl yapacağımı bilmiyorum bana bu konuda yol göstebilirmisiniz veya sizi fazla uğraştırmayacaksa sizin düzenleme şansınız varmı eğer var ise ben size bu formun tam çıktı şeklini göndereyim onun üzerinde çalışabilirsiniz sizce hangisi uygun olur

 

[Orion1]

iyi hoş dedinizde ben bunu nasıl yapacağımı bilmiyorum bana bu konuda yol göstebilirmisiniz veya sizi fazla uğraştırmayacaksa sizin düzenleme şansınız varmı eğer var ise ben size bu formun tam çıktı şeklini göndereyim onun üzerinde çalışabilirsiniz sizce hangisi uygun olur

Tamam ben şimdi bir kod yazayım.koduda butona bağlayayım.

 

[kalite14]

size o zaman formu son hali ile göndereyimmi

 

[kalite14]

formun son hali ektedir.

 

[Orion1]

Yedekleme kodlarıda tamam.Ait olduğu klasöre dosyayı çıkarıyor.
Butona tıklayınız.

Sub Yedek()
Dim NewWb As Workbook, dosya As String
ActiveSheet.Copy
dosya = ThisWorkbook.Path & "\" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
For i = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(i).Delete
Next i
ActiveWorkbook.Close True
End Sub

 

[Orion1]

formun son hali ektedir.

dosyanın son hali ektedir.

Sub Yedek()
Dim NewWb As Workbook, dosya As String
ActiveSheet.Copy
dosya = ThisWorkbook.Path & "\" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
For i = ActiveSheet.Shapes.Count To 1 Step -1
    If ActiveSheet.Shapes(i).Name Like "Bevel*" Then
        ActiveSheet.Shapes(i).Select
        Selection.Delete
    End If
Next i
ActiveWorkbook.Close True
End Sub

 

[kalite14]

merhabalar yapmış olduğunuz tüm çalışmalar için çok teşekkür ederim emeğinize sağlık.
Size zahmet veriyorum ama bir ricam daha olacak.Form üzerinde yapmış olduğunuz yedekleme menüsü çok güzel ,yalnız bir sıkıntım var daha önceden bahsetmiştim sadece mavi ile belirtilen alanı değiştirdiğimde yazıcıdan çıktı alırken form taslağı üzerine diğer bilgileri tekrar yazdırıyor ,taslağın yazdırılmasını istemiyorum(örneğin form üzerinde sıcaklık değeri ve akım değeri yazıları ve satırdaki T85-T125 veya 10A-16A ve çerçeveler gibi) bunun için bir kod yazabileceğinizi söylemiştiniz acaba bunuda forma ekleme şansımız varmıdır.şimdiden teşekkür eder iyi çalışmalar dilerim

 

[Orion1]

merhabalar yapmış olduğunuz tüm çalışmalar için çok teşekkür ederim emeğinize sağlık.
Size zahmet veriyorum ama bir ricam daha olacak.Form üzerinde yapmış olduğunuz yedekleme menüsü çok güzel ,yalnız bir sıkıntım var daha önceden bahsetmiştim sadece mavi ile belirtilen alanı değiştirdiğimde yazıcıdan çıktı alırken form taslağı üzerine diğer bilgileri tekrar yazdırıyor ,taslağın yazdırılmasını istemiyorum(örneğin form üzerinde sıcaklık değeri ve akım değeri yazıları ve satırdaki T85-T125 veya 10A-16A ve çerçeveler gibi) bunun için bir kod yazabileceğinizi söylemiştiniz acaba bunuda forma ekleme şansımız varmıdır.şimdiden teşekkür eder iyi çalışmalar dilerim

Bunu konuştuk sanırım.
Başka yeni bir sayfa oluşturup.sadece çıktıda gözükecek şekilde o yeni sayfada hücreleri formüllerle alıp koyacaktınız.