Vb de yazdırma problemi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: Vb de yazdırma problemi (/konu-vb-de-yazdirma-problemi.html) |
Vb de yazdırma problemi - alpakin - 12/01/2011 Merhabalar bir çalışma için VB de yazdırma problemleri yaşıyorum. Sorunlarımı özetliyeyim. İlk olarak düzenli bir yazdırma için output file mda ve form üzerindeki picture da yazdırırken alt alta gelen değerlerin hane sayısı farklı ise yazdırma işlemi kayıyor ve hizalıyamıyorum . Örnek olarak Format komutu için bulabildiğim örneklerle bu durumu düzeltemedim uygun bir çözüm paylaşırsanız sevinirim. 2. olarak bir a(.,.) matrisim var ve bu matrisin kolon sayısı değişebiliyor bu matrisin aynı satırdaki elemanlarını yanyana ve istediğim formatta yazdırmak istiyorum , örnekle durumu arzetmem gerekirse Bu konularda bilgisi olan uzman arkadaşlar yardımcı olursa sevinirim , iyi günler. Aşşağıda örnek kodumu veriyorum. Private Sub Form_Load() Dim Qval(3, 4) As Double For m = 1 To 3 For k = 1 To 4 p = Rnd() * 20000 Qval(m, k) = p Next k Next m gAppDir = App.Path outfile1 = gAppDir & "\optsoln.txt" 'Opt. soln.s for each iteration& details of opt soln. intoutfile1 = FreeFile: Open outfile1 For Output As intoutfile1 For m = 1 To 3 Print #intoutfile1, Format(m, "000"), Format(Qval(m, 1), "######.###"), Format(Qval(m, 2), "0000000.000"), Format(Qval(m, 3), "0000000.000"), Format(Qval(m, 4), "0000000.000") Next m End Sub Yardımlarınız için şimdiden teşekkürler . Cvp: Vb de yazdırma problemi - Coskun0559 - 12/01/2011 örneğinizi ekleyiniz. |