Kâğıt Yerleştirme Plânı

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Matbaa kâğıt yerleştirme plânı ile ilgili yardıma ihtiyacım var.
Dosya ektedir.
İçersinide açıklaması yapılıştır.
Tekrar yapılması istenen konuyu özetleyeyim.

Genel olarak en çok kullanılan 3 ayrı tabaka kağıt ebadımız var;
70*100 cm - 64*90 cm - 57*82 cm.

Formun sol tarafında ebat yazıyor oraya girilen bir ebadı mesala A4 (21*29.7 cm) bu ölçü yukarıdaki hangi kağıda en az fire ile yerleştirilir amaç bu.
Excelin sağ tarafında hangi ebadın hangi tabaka ebadından kaç tane aldığını göreceksiniz.
Mesela; A4 yani 21*29,7 cm en iyi ve firesiz olarak 64*90 cm tabaka kağıttan önlü arkalı olarak 16 sayfa alıyor. 64*90 cm yi 8 e bölünüyor.
Umarım anlatabilmişimdir. Anlaşılmayan bir yer olduğunda derhal yardım olacağım.
Şimdiden teşekkür ederim.
 

Ekli dosyalar

Katılım
6 Şubat 2005
Mesajlar
1,467
Sn Civan Jack
Biraz araştırdım, Quark pragramı bu işi otamatik yapıyormuş, matbacılıkta, kağıdı matematiksel olarak bölme hesabı, anladığım kadarı ile uygulamada yanıltıcı olabiliyor.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Evet Quark bunu yapıyor biliyorum, elimde Bilsis' in yaptığı millenium programı da var ama, excel de yapılabilir mi bunu merak ediyorum. Ve bu işin excel de olması benim işimi çok daha kolaylaştıracak.
Teşekkürler.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyanız üzerinde biraz çalışarak bir model ortaya çıkardım. Userform açıldığında checkboxlardan (checkbox yerine optionbutton kullanmanız daha doğru olurdu) seçilen kağıt boyutuna göre bir label oluşturulacaktır. Daha sonra ebat textboxlarına yazacağınız boyutlara göre "çiz" butonuna bastığınızda mevcut kağıt ebadı üzerine gerekli yerleşim yapılacaktır. Her zaman doğru sonucu veriyormu açıkçası deneme yapamadım. Siz deneyerek sonucu görebilirsiniz. Bundan sonrasınıda kendinizin geliştirebileceğini sanıyorum.
 

Ekli dosyalar

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Çok teşekkürler Sn. Levent Menteşoğlu,
Ellerinize sağlık, doğal olarak tam istediğim olmasa da gerçekten çok başarılı.
Yalnız ufak bir sorun var, meselâ ebat 14*20 cm olduğu zaman, 64*90 cm den çıkıyor. 64 kenarından 14 ün alınması, 90 kenarından da 20 cm in alınması lâzım yani kâğıt üzerinde işin olması için kâğıdın katlanması için bu şekilde olması lâzım. Fakat (emeğinize sağlık) programda tersini yapıyor. 64 kenarından 20 yi, 90 kenarından da 14 ü alıyor. Malesef bu halde işimizi görmüyor. Yani sayfanın kâğıda bu şekilde yayıldığında baskı gerçekleşemez. Bir çok ebat denedim fakat, diğer ebatlardada bu şeklide yapıyor. Dediğim şekilde olabilirse düzelmiş olur ve çok sevinirim.

Emekleriniz için gerçekten Çok Çok Teşekkürler Levent bey.

Hayırlı geceler.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Murat bey sorunuzda en az fire ile yerleştirmekten bahsetmişsiniz. 64*90 ebadındaki kağıda 14*20 ebadını 64'ten 14 ve 90'dan 20 aldığımızda 16 adet yerleştirebilirsiniz. Ancak 64'ten 20 ve 90'dan 14 aldığınızda yerleşim sayısı 18 olacaktır. Bu durumda 18 adet yerleşim daha az fire demektir. Ben dosyayı bu mantığa göre hazırlamıştım. Ancak yerleşimde bir yön mecburiyeti sözkonusu ise bu durumda biraz daha detay bilgi verebilirseniz ona göre gerekli düzeltmeyi yapabilirim.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Murat bey sorunuzda en az fire ile yerleştirmekten bahsetmişsiniz. 64*90 ebadındaki kağıda 14*20 ebadını 64'ten 14 ve 90'dan 20 aldığımızda 16 adet yerleştirebilirsiniz. Ancak 64'ten 20 ve 90'dan 14 aldığınızda yerleşim sayısı 18 olacaktır. Bu durumda 18 adet yerleşim daha az fire demektir. Ben dosyayı bu mantığa göre hazırlamıştım. Ancak yerleşimde bir yön mecburiyeti sözkonusu ise bu durumda biraz daha detay bilgi verebilirseniz ona göre gerekli düzeltmeyi yapabilirim.
Evet haklısınız Levent bey, en az fire ile hangi kağıda yerleştirilebilir demiştim.
Forma düzeninden bahsetmedim size. Aşağıdaki şekilde görebilirsiniz. Açıklamasıda ekte mevcut. En az fire ve forma düzeni çok önemli. Kağıdın sol tarafı (yani yükseklik kısmı) 2 ve 2 nin katlarına bölünebilir. Sadece uzun ince kitaplarda ebat şimdi aklımda değil. :(
O zaman kağıdın solundan 3 e bölünüyor.
Bir de her zaman sayfanın alt kısmından 1 cm boşluk bırakılıyor..
Makas payı diyoruz. Makinenin makasları kağıdı oradan tutuyor. Ve o bölüme baskı yapılmıyor. Umarım anlatabilmişimdir.

Teşekkürler Levent bey.
 

Ekli dosyalar

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Textbox lara hangi ebat yazılırsa yazılsın, bu ebadın sığacağı tabaka ebadının alt kısmından
1 cm ve üst kısmından da 0.5 (yarım) cm pay bırakılmalı, ki baskı yapılabilsin.
Matbaa ile ilgili olan kişilerin aşağıdaki programa bir göz atmasını isterim.
İlk çıktığı yıllarda 2 sene kadar kullanmıştım. Çok faydalı... Access de yapılmıştır.
Onun kâğıt yerleştirme ekranı var, yapmak istediğim programın, aşağıdaki programda bulunan
kağıt yerleştirme ekranı gibi olmasını ümîd ediyorum. Ne kadar olur, olmaz onu bilemem.

Programı aşağıdaki linkten indirebilirsiniz.
http://rapidshare.com/files/258302578/MYSKur.rar.html
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Levet bey, bir gelişme var mı acaba ???
Çalışmayı merak ediyorum.
Teşekkürler
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
İyi akşamlar Levent bey.
Bu çalışma için size ne kadar teşekkür etsem az, çok zor bir işlemdir.
Hem hangi kağıt ebadına sığdığını bulacak, hem matbaacılıktaki forma düzenine göre hesap yapacak, hem de en uygununu hesaplayıp arasındaki farkı bulacak.
Yapmak istediklerim bunlar, ama şimdilik bu yapmak istediklerim excelle imkansız gibi birşey.

Sizden şu an sadece bir isteğim olacak.

Şekillerin çizildiği Label in alt kısmına 1,2 cm (birnoktaikisantim) sabit bir boşluk bırakabilir miyiz ?
Yani; matbaacılıkta bir işi kağıda basarken makinenin baskı yapabilmesi için kağıdın alt kısmına 1,2 cm boşluk bırakmalıyız. Bu yüzden yaptığınızı çalışmanın en alt kısmına 1,2 cm eklemenizi rica edeceğim.

1,2 cm den sonra yerleştirmeyi yapması gerekiyor.

Bakabilirseniz sevinirim Levent bey.
Çok teşekkür ederim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ölçü olarak kağıdın yükseklik ölçüsünü 1,2 cm kısa kabul ederek işlem yapacak şekilde bir ilave yaptım. Umarım istediğiniz işlem bu şekildedir.
 

Ekli dosyalar

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Harikasınız Levent bey. :)
Ellerinize sağlık, çok güzel olmuş, şimdi çok daha doğru hesaplıyor.
Ne kadar teşekkür etsem azdır size. :)
Çok teşekkür ederim.

Affınıza sığınarak birşey daha sorabilir miyim ?
Textboxlara yazdığımız ebatlar, örneğin; 15x21 ebadını hesaplamak istediğimizde; 57x82 - 64x90 ve 70x100 kağıt ebatlarından hangisinde daha az fire oluyorsa, ona göre sonuç vermesini sağlanabilir mi ?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Rica ederim. 3 ebat içinden en az fire olan ölçünün seçimi için gerekli ilaveleri yaptım. Ancak her seferinde doğrumu işlem yapıyor bunu denemenizi rica ederim.
 

Ekli dosyalar

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
İnceledim Levent bey, fakat hesaplamada biraz sorun var gibi.
Fireyi neye göre hesaplıyor acaba, ekte 21x29,7 cm için en az fire hesaplamasını çizerek anlatımını yaptım.

Dünyada standart olarak kullanılan bazı ebatlar var, mesela; A4' ü duymuşsunuzdur, A4 kağıt, A4 antetli gibi. A4' ün tam ölçüsü; 21x29,7 cm' dir.

A4 kağıdı, tabaka ebadından 1,2 cm eksilttiğimizde en az fireli olarak
64x90 cm lik kağıttan çıkıyor ve 8 parça alıyor.

Sizin son yaptığınız eklemelerde, A4 kağıdın 70x100 cm den 9 parça alıyor, bu doğrudur aslında, ama sanırım 1,2 cm lik payı hesaba katmıyor. Kağıdın eninden 1,2 cm düştüğümüzde enindeki 3.parçaya yer kalmıyor, ebadı ters çevirip 90 kenarına koyuyor.

Şöyle anlatayım size normalde aşağıdaki gibi olması lazım;
Ektede anlatımını yaptım.

64 cm kenarından; 29,7 + 29,7 cm = 59,4 cm - 64 cm = 4,6 cm fire veriyor, ki bunun içerisinde 1,2 cm lik kısımda var.
90 cm kenarından; 21 + 21 + 21 + 21 cm = 84 cm - 90 = 6 cm fire veriyor.

70 x 100 cm e göre hesaplarsak;
70 cm kenarından; 21 + 21 + 21 cm = 63 cm - 70 cm = 7 cm fire veriyor, ki bunun içerisinde 1,2 cm lik fire de var.
100 cm kenarından; 29,7 + 29,7 + 29,7 cm = 89,1 cm - 100 cm = 10,9 cm fire veriyor.

64x90 ve 70x100 ü kıyasladığımızda ortaya çıkan (en + boy) fireleri aşağıdaki gibidir.

64x90 = 10,6 cm fire
70x100 = 17,9 cm fire

Yani; 64x90 a göre hesaplaması lazım, tabiki 1,2 cm lik payı unutmadan.

Umarın anlatabilmişimdir Levent bey, sizi yoruyorum, kafa patlatıyorsunuz bu konuda, emekleriniz ve yardımlarınız için çok teşekkür ederim size.

Hayırlı geceler.
 

Ekli dosyalar

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ben alan hesabından gitmiştim. Ancak bu yanlış bir mantık. 14 nolu mesajımdaki dosyayı yeniledim. Sanıyorum bu sefer doğru mantık ile çalışıyor.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Evet Levent bey, şimdi doğru mantıkla çalışıyor. :)

Program çok güzel oldu gerçekten, normalde ebatları manuel olarak kağıda çizip sığdırmaya uğraşıyordum,
9 yıllık bir tecrübem olduğu için bazı extreme ebatlar harici diğerlerini yerleştirmeyi neredeyse ezbere biliyorum.
Bu kağıt yerleştirme işi matbaacılar için çok önemlidir, bir iş gelir, önce fiyatı hesaplayacak kişi,
verilen ebatları kağıda yerleştirmeye çalışır, hangi ebada göre daha iyiyse firesizse ve forma düzenine uygunsa ona göre fiyatını hesaplar ki asıl işin zor yanı budur. İşin nasıl basılacağını hesapladıktan sonra gerisi çocuk oyuncağı.

Bu programla, o zaman kaybını ortadan kaldırabiliriz.

14 nolu mesajdaki yeni programı indirdim, gayet de güzel, yalnız sizden bir istirhamım daha olacak.
Çok fazla ebat denedim, %80 civarı tamamdır, dediğim gibi bazı extrem ebatlarda kağıdın uzun kanerında, benim de size söylemeyi unuttuğum ama çok da zor olamayan bir şey var.

Hani; kağıdın en alt kısmından, eninden 1,2 cm eksiltmiştik ya, boyundan da sağdan ve soldan 0,3 cm (3 mm) kısaltmamış lazım kağıdı.

Bunun nedenini açlıklayayım size;
Verilen ebatlar işin bitmiş ebadıdır, son boya düşürülmüş ebadıdır, müşteri eline alıp ölçtüğünde verilen ebatları bulmalı. Zaten önceki mesajımda da belirtmiştim, örneğin; 21x29,7 cm ebadında bir iş istiyorlar, programda hesapladık ki 8 parça alıyor, bu 8 parçanın tabakadaki net ebadı; 59,4x84 cmdir.
Geriye kalanının bir kısmı işi katlarken bize gerekiyor, çünkü işi katlarken biraz olsun kaymalar olabiliyor, bunu telafi edebilmek içinde heryerinden biraz pay vermek gerekiyor, bir kısmıda çöpe gidiyor.

Aslında siz de matbaacılığı bilseniz, çok rahat anlatacağım ve anlayacaksınız ama. :( :)

Yukarıda da dediğim gibi kağıdın boyundan yani uzun kenarından 0,3 cm (3 mm) gibi bir pay bırakmamız lazım.

Bakarsanız sevinirim.
Çok teşekürler.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Levent bey, kodları bu şekilde düzelttim, ebatları sağ ve sol kenarından 0,3 mm toplamda 0,6 mm olarak değiştirdim ama olmadı, başka bir yeri daha düzeltmek, hesaplamak mı gerekiyor acaba ?

Kod:
Private Sub CommandButton1_Click()
alan1 = 55.8 * [COLOR="Red"]81.4[/COLOR]
alan2 = 62.8 * [COLOR="#ff0000"]89.4[/COLOR]
alan3 = 68.8 * [COLOR="#ff0000"]99.4[/COLOR]

kesalan = TextBox1 * TextBox2

hesap1 = Int(55.8 / TextBox1) * Int([COLOR="#ff0000"]81.4[/COLOR] / TextBox2) * kesalan / alan1
hesap2 = Int(62.8 / TextBox1) * Int([COLOR="#ff0000"]89.4[/COLOR] / TextBox2) * kesalan / alan2
hesap3 = Int(68.8 / TextBox1) * Int([COLOR="#ff0000"]99.4 [/COLOR]/ TextBox2) * kesalan / alan3
hesap4 = Int(55.8 / TextBox2) * Int([COLOR="#ff0000"]81.4[/COLOR] / TextBox1) * kesalan / alan1
hesap5 = Int(62.8 / TextBox2) * Int([COLOR="#ff0000"]89.4[/COLOR] / TextBox1) * kesalan / alan2
hesap6 = Int(68.8 / TextBox2) * Int([COLOR="#ff0000"]99.4[/COLOR] / TextBox1) * kesalan / alan3
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Çok daha doğru hesaplıyor şimdi Levent bey. Ellerinize sağlık. :)
Neredeyse hatasız. :D

Acaba şu şeklide yapılabilir mi ?
Hangi ebat daha az firesiz ise ona göre ebadı seçip labelda gösteriyor,
örneğin 70x100 den 1/8 aldı ama ben 64x90 veya 57x82 checkboxu seçip ona göre hesaplamasını istesem.
Nasıl olur ?
 
Son düzenleme:
Üst