Fox4um - Raporlar ve Etiketler

Custom Paper Size hk.

dummy@example.com (ugurlu2001) — Sun, 05 Feb 2012 16:20:40 +0000

Herkese merhabalar;

Özetle yapmak istediğim şöyle bir şey : sistemde tanımlı olan yazıcıma kullanıcı tanımlı bir kağıt eklemek istiyorum ("Custom Paper").

Sergey Berezniker 'e ait aşağıdaki kodu buldum ama bir türlü sonuç alamadım. Bu konuda yardım alabileceğim kimse var mı?

Her durumda "Unable to Add Form MyCustopmForm1" hatası alıyorum.

http://www.berezniker.com/content/pages … nter-forms

Visual Fox Pro

* All sizes in inches

ooo = NEWOBJECT("AddPrinterForm", "AddPrinterForm.fxp")

IF NOT ooo.AddForm("MyCustomForm1", 5,7, lcPrinterName)

    ? ooo.cErrorMessage

    ? ooo.cApiErrorMessage 

  * Error

ENDIF

 

*!*    * Delete just created form

*!*    ooo = NEWOBJECT("AddPrinterForm", "AddPrinterForm.fxp")

*!*    IF NOT ooo.DeleteForm("MyCustomForm1", lcPrinterName)

*!*        ? ooo.cErrorMessage

*!*        ? ooo.cApiErrorMessage 

*!*      * Error

*!*    ENDIF

 

 

* All sizes in cm

ooo = NEWOBJECT("AddPrinterForm", "AddPrinterForm.fxp", "", "Metric")

IF NOT ooo.AddForm("MyCustomForm2", 15,17, lcPrinterName)

  * Error

ENDIF

 

*!*    * Delete just created form

*!*    ooo = NEWOBJECT("AddPrinterForm", "AddPrinterForm.fxp")

*!*    IF NOT ooo.DeleteForm("MyCustomForm2", lcPrinterName)

*!*        ? ooo.cErrorMessage

*!*        ? ooo.cApiErrorMessage 

*!*      * Error

*!*    ENDIF

 

* AddPrinterForm.prg

DEFINE CLASS AddPrinterForm AS Custom

 

    HIDDEN cUnit, cPrinterName, nFormHeight, nFormWidth, nLeftMargin, ;

              nTopMargin, nRightMargin, nBottomMargin, nInch2mm, nCm2mm, nCoefficient, hHeap

 

    cUnit = "English"        && inches or Metric - cm's

    cPrinterName = ""

    nFormHeight = 0

    nFormWidth = 0

    nLeftMargin = 0

    nTopMargin = 0

    nRightMargin = 0

    nBottomMargin = 0

 

    cApiErrorMessage = ""

    cErrorMessage = ""

 

    nInch2mm = 25.4

    nCm2mm = 10

    nCoefficient = This.nInch2mm * 1000

 

    hHeap = 0

 

    * Win API support class

    oWas = NULL

 

    PROCEDURE Init(tcUnit)

    This.oWas = NEWOBJECT("WinApiSupport", "WinApiSupport.fxp")

    IF PCOUNT() = 1 

        This.cUnit = PROPER(tcUnit)

    ENDIF

    This.LoadApiDlls()

    This.hHeap = HeapCreate(0, 4096, 0)

    * Use Windows default printer

    This.cPrinterName = SET("Printer",2)

    ENDPROC

 

    PROCEDURE cUnit_Assign(tcUnit)

    IF INLIST(tcUnit, "English", "Metric")

        This.cUnit = PROPER(tcUnit)

    ELSE

        RETURN    

    ENDIF

    * Calculate conversion coefficient

    This.nCoefficient = IIF(PROPER(This.cUnit) = "English", ;

                        This.nInch2mm, This.nCm2mm) * 1000

    ENDPROC

 

    PROCEDURE Destroy

    IF This.hHeap <> 0

        HeapDestroy(This.hHeap)

    ENDIF

 

    ENDPROC

 

    PROCEDURE SetFormMargins(tnLeft, tnTop, tnRight, tnBottom)

    WITH This

        .nLeftMargin     = tnLeft   * .nCoefficient

        .nTopMargin     = tnTop    * .nCoefficient

        .nRightMargin     = tnRight  * .nCoefficient

        .nBottomMargin     = tnBottom * .nCoefficient

    ENDWITH

    ENDPROC

 

    PROCEDURE AddForm(tcFormName, tnWidth, tnHeight, tcPrinterName)

    LOCAL lhPrinter, llOK, lcForm

 

    This.nFormWidth  = tnWidth  * This.nCoefficient

    This.nFormHeight = tnHeight * This.nCoefficient

    IF PCOUNT() > 3

        This.cPrinterName = tcPrinterName

    ENDIF

 

    This.ClearErrors()

    lhPrinter = 0

    IF OpenPrinter(This.cPrinterName, @lhPrinter, 0) = 0

        This.cErrorMessage = "Unable to get printer handle for " + This.cPrinterName 

        This.cApiErrorMessage = WinApiErrMsg(GetLastError())

        RETURN .F.

    ENDIF

 

    lnFormName = HeapAlloc(This.hHeap, 0, LEN(tcFormName) + 1)

    = SYS(2600, lnFormName, LEN(tcFormName) + 1, tcFormName + CHR(0))

 

    * Build FORM_INFO_1 structure

    WITH This.oWas

        lcForm = .Num2Long(0) + .Num2Long(lnFormName) + ;

            .Num2Long(This.nFormWidth) + .Num2Long(This.nFormHeight) + ;

            .Num2Long(This.nLeftMargin) + .Num2Long(This.nTopMargin) + ;

            .Num2Long(This.nFormWidth - This.nRightMargin) + ;

            .Num2Long(This.nFormHeight - This.nBottomMargin)

    ENDWITH

 

    * Finally, call the API

    IF AddForm(lhPrinter, 1, @lcForm) = 0

        This.cErrorMessage = "Unable to Add Form " + tcFormName 

        This.cApiErrorMessage = STRTRAN(WinApiErrMsg(GetLastError()), "file", "form", -1, -1, 3)

        llOK = .F.

    ELSE

        llOK = .T.

    ENDIF

    = HeapFree(This.hHeap, 0, lnFormName)

    = ClosePrinter(lhPrinter)

 

    RETURN llOK

 

    PROCEDURE ClearErrors

    This.cErrorMessage = ""

    This.cApiErrorMessage = ""

    ENDPROC

 

    PROCEDURE DeleteForm(tcFormName, tcPrinterName)

    LOCAL lhPrinter, llOK

 

    IF PCOUNT() > 1

        This.cPrinterName = tcPrinterName

    ENDIF

 

    This.ClearErrors()

    lhPrinter = 0

    IF OpenPrinter(This.cPrinterName, @lhPrinter, 0) = 0

        This.cErrorMessage = "Unable to get printer handle for " + This.cPrinterName + "."

        This.cApiErrorMessage = WinApiErrMsg(GetLastError())

        RETURN .F.

    ENDIF

 

    * Finally, call the API

    llOK = ( DeleteForm(lhPrinter, tcFormName) <> 0 )

    IF NOT llOK 

        This.cErrorMessage = "Unable to delete Form " + tcFormName 

        This.cApiErrorMessage = STRTRAN(WinApiErrMsg(GetLastError()), "file", "form", -1, -1, 3)

    ENDIF

    = ClosePrinter(lhPrinter)

    RETURN llOK

 

    HIDDEN PROCEDURE LoadApiDlls

        DECLARE Long HeapCreate IN WIN32API Long dwOptions, Long dwInitialSize, Long dwMaxSize

        DECLARE Long HeapAlloc IN WIN32API Long hHeap, Long dwFlags, Long dwBytes

        DECLARE Long HeapFree IN WIN32API Long hHeap, Long dwFlags, Long lpMem

        DECLARE HeapDestroy IN WIN32API Long hHeap

        DECLARE Long GetLastError IN kernel32

    ENDPROC

 

ENDDEFINE

*----------------------------------------------------------------------------------------------

 

FUNCTION OpenPrinter(tcPrinterName, thPrinter, tcDefault)

DECLARE Long OpenPrinter IN WinSpool.Drv ;

    String pPrinterName, Long @ phPrinter, String pDefault

RETURN     OpenPrinter(tcPrinterName, @thPrinter, tcDefault)

 

FUNCTION ClosePrinter (thPrinter)

DECLARE Long ClosePrinter IN WinSpool.Drv Long hPrinter

RETURN ClosePrinter(thPrinter)

 

 

FUNCTION AddForm(thPrinter, tnLevel, tcForm)

DECLARE Long AddForm IN winspool.drv Long hPrinter, Long Level, String @pForm

RETURN AddForm(thPrinter, tnLevel, tcForm)

 

FUNCTION DeleteForm(thPrinter, tcForm)

DECLARE Long DeleteForm IN winspool.drv Long hPrinter, String  pFormName 

RETURN DeleteForm(thPrinter, tcForm)

Raporda hizalama sorunu

dummy@example.com (Gökçe Özçınar) — Mon, 26 Dec 2011 11:33:26 +0000

Merhabalar.
Report ile fatura bastırırken şöyle bir sorun yaşıyorum. Ekranda örneğin adres satırı ile tarih aynı satırda ama biri sağ diğeri sol başta yer alıyor. Sanırım jenerik yazıcı kullandığım için kağıta da aynı satırda olması gereken bu iki field eğer tam olarak aynı hizada değilse satırlarda karışıklık oluyor. (alttaki satırları üst üstte yazıyor). Dizaynı çok kolay olduğu için rapordan vazgeçmek istemiyorum.

Bunun bir çaresi var mıdır?

Rapor Sayfasında Bölümler

dummy@example.com (tarik) — Mon, 19 Dec 2011 13:57:25 +0000

Arkadaşlar ilk defa bir rapor sayfası hazırlayacağım. Benim sorum şöyle diyelim ki A4 kağıda öğrenci ÖSS karnesi hazırlayacağız. Kağıdı kullanım açısından yatay ve dikey 2'şer olmak üzere 4 bölüme ayırdığınızı hayal edin.
Diyelim ki sol üst tarafı öğrenci kişisel bilgileriyle doldurduk. Sağ üstte kalan bölüme daha önceki sınavlardan aldığı tüm puanları yerleştirebilir miyim. Sol alt taraftaki bölümü Her bir dersten yaptığı Doğru Yanlış sayılarını koyup Sağ alt köşeyi de sınavdaki her konudan başarılarını yerleştirebilir miyiz.
Yani bir sayfada bir öğrenciye ait farklı tablolardan derlenen bilgileri birden fazla detail band kullanarak veya başka yöntemle (alt alta yazmak zorunda kalmadan) sayfayı serbest kullanabilir miyim.

Benzer sorunla karşılaşan, fikri, çözüm önerisi olan var mı ?

Teşekkürler.

reportta check ve optiongroup

dummy@example.com (cetinbasoz) — Mon, 12 Sep 2011 08:04:27 +0000

rapor hazırlarken
formda bulunana check li bir elemanı , optiongroup lu (evet hayır gibi)
elemanları nasıl gösterebilirim.

aklıma gelen çözümler :
formdaki check elemanı için check edildiyse yazmak yoksa yazmamak (veya check elemanının değeri 1 ise evet yoksa hayır yazdırmak )

formun üzerindeki optiongroup elemanı için elemanda evet veya hayır seçili ise raporda yazının karşısına evet veya hayır yazmak . bu aslında resim ile de yapılır daha önceden evet hayır resimleri yapılıp reportta gösterilebilir.

Değişik fikri olan var mı?

Teşekkürler.

FoxyPreviewer Dökümanları Artık Türkçe

dummy@example.com (cetinbasoz) — Tue, 22 Mar 2011 15:52:42 +0000

FoxyPreviewer'ın buradaki arkadaşlar tarafındanda ilgi görmesi üzerine projenin yaratıcısı Cesar Chalom "Türkçe döküman da koyalim sen nasıl olsa sürekli türkçeleştirme kısmını güncelliyorsun bari dökümanlarda CodePlex'te Türkçe olsun" dedi ve çevirisini ve editörlüğünü benim yaptığım Documents kısmına "Turkish Documentation / Türkçe Dökümantasyon" kısmı eklendi... linke aşağıdan ulaşabilirsiniz...

http://foxypreviewer.codeplex.com/wikip … rkish_Main

umarım faydalı olur varsa çeviri hataları için şimdiden affola

Rapor Detail Band içinde calculate

dummy@example.com (tarik) — Tue, 08 Mar 2011 14:55:19 +0000

Raporda sınıfların listesi var (SINIF,NO,AD,SOYAD,CINSIYET) ve detail bandında da sınıf mevcudu var. Detail bantta Erkek ve Kız öğrenci toplamını da nasıl yazdırabilirim.

FoxyPreviewer 2.18

dummy@example.com (soykanozcelik) — Thu, 03 Mar 2011 10:15:56 +0000

son hali ile ozetlemeye calisayim...

2 tür kullanimi var

1- basit ve cok kisinin tercih ettigi

Visual Fox Pro

1 2	DO FOXYPREVIEWER.APP REPORT FORM YourReport PREVIEW

release etmek isterseniz

Visual Fox Pro

1	DO FOXYPREVIEWER.APP with "Release"

demeniz yeterli

2-gelismis mode burada ek propertyler vererek daha verimli kullanim elde ediyorsunuz

Visual Fox Pro

LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.App" 

loReport = CREATEOBJECT("PreviewHelper") 

loReport.AddReport(_Samples + "\Solution\Reports\colors.frx", "FOR Client = 'VFPx' ") && FRX File, Clauses 

loReport.RunReport()

şimdi normal mode,gelismis mode ve normal VFP9 reportları ile karsilastirma tablomuza bakalim

bu tabloda su an olmayan ama email gonderirken sizin hazirlamis oldugunuz bir cursor yada table dan "TO" butonuna bastiginizda kayitli email adreslerini gosterebileceginiz ozellik te eklenmis durumda ve her iki modda da calisiyor.

daha detayli bilgi property vs aciklamaları http://foxypreviewer.codeplex.com/documentation adresinden incelenebilir...

FoxyPrevieweri asagidaki linkten indirebilirsiniz
http://foxypreviewer.codeplex.com/relea … oad/212789

buradan da GDI+ icinde kullanilan system.app yi indirebilirsiniz
http://vfpx.codeplex.com/releases/view/15083

asagidaki test kodu ile sonucu gorebilirsiniz ... ayarlar-email-email turunden CDO-email i secmeyi ve SMTP ayarlarini yapmayi unutmayin

Visual Fox Pro

*- Custom report with FoxyPreiwer with native ways ( with all of features )

DoTestCustomReport()

 

*- quick report with FoxyPreiwer ( only can save Img Type Png , send e-mail -> with ext.TIFF )

*-DoTestQuickReport()

 

Function DoMailCursor

    * Creating a table with the adress book

    Select Cast(Lower(Getwordnum(Contact, 1, " "))+"@vfp4.com" As C(30)) As email,* From (_samples + '\data\customer') ;

        WHERE .T. Into Cursor test &&TABLE c:\Test2 READWRITE

Endfunc

 

Function DoTestQuickReport

 

    DoMailCursor()

 

    m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer'  Where .T. Into Cursor CrsTemp NOFILTER"

    Do Locfile("SYSTEM.APP")

    Do Locfile("FOXYPREVIEWER.APP")

    _Screen.oFoxypreviewer.cAdressTable  = "test"

    _Screen.oFoxypreviewer.cAdressSearch = "Contact"

    _Screen.oFoxypreviewer.lquietmode =.F.

 

    Generate_Temp_Frx(m.cSQL,.T.)

 

    Use In Select("test")

    Use In Select("Customer")

 

Endfunc

 

Function DoTestCustomReport

 

    DoMailCursor()

 

    Set Procedure To Locfile("FoxyPreviewerCaller.prg") Additive

    m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer'  Where .T. Into Cursor CrsTemp NOFILTER"

    Do Locfile("SYSTEM.APP")

    Do Locfile("FOXYPREVIEWER.APP")

    Generate_Temp_Frx(m.cSQL,.F.)

 

    Local loReport As "FoxyPreviewerCaller" Of "FoxyPreviewerCaller.Prg"

    loReport = Createobject("FoxyPreviewerCaller")

 

    With loReport As ReportHelper

        .AddReport(Addbs(Sys(2023)) + [SampleFoxyP.frx], "NODIALOG") && "RANGE 1,1 NODIALOG"

 

        .cTitle = "FoxyPreviewer Report custom title"

        .lShowSetup = .T.

        .cAdressTable  = "test"

        .cAdressSearch = "Contact"

        .nWindowState = 2

        .RunReport()

 

        Use In Select("test")

        Use In Select("Customer")

 

        Do Case

 

            Case .lPrinted

                Messagebox("Report was printed !",64, "Report status")

 

            Case .lEmailed

                Messagebox("Report was sent to email, with the attached file: " + ;

                    CHR(13) + .cDestFile,;

                    64, "Report status")

 

            Case .lSaved

                Messagebox("Report was saved as file:" + Chr(13) + .cDestFile,;

                    64, ;

                    "Report status")

                =OpenFile(.cDestFile)

 

            Otherwise

                Messagebox("Report Preview was closed without saving or printing",48, "Report status")

 

        Endcase

 

    Endwith

 

Endfunc

 

Function Generate_Temp_Frx

    * Author Soykan OZCELIK - 01.08.2010

    *-- usage

    * m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer'  Where .T. Into Cursor CrsTemp NOFILTER"

    * Generate_Temp_Frx(m.cSQL,.t.)  && .f. , .t. default

    *---------

    Lparameters tcSQL,tlPreview

    Local cReport

    m.cReport = Addbs(Sys(2023)) + [SampleFoxyP] &&Sys(2015)

    *!* &tcSQL

    Execscript(m.tcSQL)

 

    If Set("Safety")='ON'

        Set Safety Off

    Endif

 

    Create Report (m.cReport) From Dbf("CrsTemp")

 

    If m.tlPreview

        Repo Form (m.cReport) Preview      &&max 8 fields in portrait, max 11 columns in landscape view

    Endif

    *-Use In 0

Endfunc

 

Procedure OpenFile(tcFileName)

    Declare Integer ShellExecute ;

        IN SHELL32.Dll ;

        INTEGER nWinHandle,;

        STRING cOperation,;

        STRING cFileName,;

        STRING cParameters,;

        STRING cDirectory,;

        INTEGER nShowWindow

    Return ShellExecute(0, "open", m.tcFileName, "", "", 1)

Endproc

FoxyPreviewer 1.95

dummy@example.com (soykanozcelik) — Thu, 03 Mar 2011 10:02:54 +0000

FoxyPreviewer 1.95 yayınlandı ,
artık FoxyPreviewer i mevcut report previewer in yerine gecirerek tek bir kodla kullanabilme sansınız var

Visual Fox Pro

1 2	Do LocFile("FoxyPreviewer.App") Report Form YourReport.Frx Prev

Ancak simdilik bu secenekte raporu dosya olarak kaydetmek isterseniz PNG , email olarak gondermek isterseniz TIFF eklentili olarak gonderebiliyorsunuz. ilerleyen versiyonlarda bu yolla kullanimda diger secenekler de aktif olacak.

Tum ozelliklerinin toolbarda yer aldıgı bicimde kullanmak isterseniz asagida her 2 secenek icin hazirlamis oldugum ornekteki gibi kullanabilirsiniz.

mevcut versiyonda ;
-artık ayarlar bir tablo uzerinde tutuluyor ve toolbardan istenildigi anda degistirilebiliyor ( dil , mail ayarlari vs )
-rapor icinde arama yapılabiliyor (find next - prior vs )

yakında eklenecek ozellikler
- Justify
- fax gonderimi

asagidaki ornek her 2 kullanim icindir.

Visual Fox Pro

*- Custom report with FoxyPreiwer with native ways ( with all of features )

DoTestCustomReport()

 

*- quick report with FoxyPreiwer ( only can save Img Type Png , send e-mail -> with ext.TIFF )

*DoTestQuickReport()

 

Function DoTestQuickReport

    m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer'  Where .T. Into Cursor CrsTemp NOFILTER"

    Do Locfile("SYSTEM.APP")

    Do Locfile("FOXYPREVIEWER.APP")

    Generate_Temp_Frx(m.cSQL,.T.)

Endfunc

 

Function DoTestCustomReport

    Set Procedure To Locfile("FoxyPreviewerCaller.prg") Additive

    m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer'  Where .T. Into Cursor CrsTemp NOFILTER"

    *Do Locfile("SYSTEM.APP")

    *Do Locfile("FOXYPREVIEWER.APP")

    Generate_Temp_Frx(m.cSQL,.F.)

 

    Local loReport As "FoxyPreviewerCaller" Of "FoxyPreviewerCaller.Prg"

    loReport = Createobject("FoxyPreviewerCaller")

 

    With loReport As ReportHelper

        .AddReport(Addbs(Sys(2023)) + [SampleFoxyP.frx], "RANGE 1,1 NODIALOG")

 

        .cTitle = "FoxyPreviewer Report custom title"

        .lShowSetup = .T.

        .RunReport()

 

        Do Case

 

            Case .lPrinted

                Messagebox("Report was printed !",64, "Report status")

 

            Case .lEmailed

                Messagebox("Report was sent to email, with the attached file: " + ;

                    CHR(13) + .cDestFile,;

                    64, "Report status")

 

            Case .lSaved

                Messagebox("Report was saved as file:" + Chr(13) + .cDestFile,;

                    64, ;

                    "Report status")

                =OpenFile(.cDestFile)

 

            Otherwise

                Messagebox("Report Preview was closed without saving or printing",48, "Report status")

 

        Endcase

 

    Endwith

 

Endfunc

 

Function Generate_Temp_Frx

    * Author Soykan OZCELIK - 01.08.2010

    *-- usage

    * m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer'  Where .T. Into Cursor CrsTemp NOFILTER"

    * Generate_Temp_Frx(m.cSQL,.t.)  && .f. , .t. default

    *---------

    Lparameters tcSQL,tlPreview

    Local cReport

    m.cReport = Addbs(Sys(2023)) + [SampleFoxyP] &&Sys(2015)

    *!* &tcSQL

    Execscript(m.tcSQL)

 

    If Set("Safety")='ON'

        Set Safety Off

    Endif

 

    Create Report (m.cReport) From Dbf("CrsTemp")

 

    If m.tlPreview

        Repo Form (m.cReport) Preview      &&max 8 fields in portrait, max 11 columns in landscape view

    Endif

    Use In 0

Endfunc

 

Procedure OpenFile(tcFileName)

    Declare Integer ShellExecute ;

        IN SHELL32.Dll ;

        INTEGER nWinHandle,;

        STRING cOperation,;

        STRING cFileName,;

        STRING cParameters,;

        STRING cDirectory,;

        INTEGER nShowWindow

    Return ShellExecute(0, "open", m.tcFileName, "", "", 1)

Endproc

rapor ekranını forma gömülü alabilirmiyim ?

dummy@example.com (soykanozcelik) — Thu, 17 Feb 2011 12:35:57 +0000

REPORT PREVIEW sonrası çıkan ekranı kullandığım form üstünde gömülü nesne olarak alabilirmiyim?

Label Veya Reportta Kayıt

dummy@example.com (ugurlu2001) — Thu, 17 Feb 2011 08:18:51 +0000

Label veya Reportların dizaynı sırasında propertiesine mevcut kaydın başka bir fieldine kayıt yapabilir miyim?
Örnek: Personel dosyasından label oluşturuyorum. Kişinin adı soyadı, doğum yeri, doğum tarihi
Personel dosyasında ayrıca yazdırma_tarihi adında bir field alanım var.
1.personelin labelini yazdırırken, aynı kaydın yazdıma_tarihine günün tarihini de kaydetmesini istiyorum.

Raporların propertiesinde bu kaydı yaptırabilecğim bir bölüm var mı?
Amacım hangi personelin labeli yazıldı veya yazılmadı bunu öğrenmek istiyorum.

Şimdiden yardımlarınız için teşekkürler.

report toolbar disabled

dummy@example.com (metin) — Sat, 05 Feb 2011 12:13:46 +0000

çok garip bir şekilde bir programda report toolbarı görüyorum ama kullanamıyorum.
- vfp9 _screen içinden formu çalıştırdığımda çalışıyor
- sdi içinden çalışan formdan çağırıldığında çalışmıyor
rapor (preview) üstü sağ tıkla çalışıyor
??? - peşinen teşekkürler ...

Rapor Görüntüsü ile Çıktı

dummy@example.com (Birnefes) — Tue, 18 Jan 2011 16:11:10 +0000

Arkadaşlar Öncelikle Merhabalar
Fox Pronun Raporlarında Raporda Çıkan Değerler ile yazılan değerler arasında bi farklılık olması gibi bi ihtimal varmıdır ?
Cursor dosyasıyla değerleri taşıyorum çok dikkatli bir şekilde sıfırdan rapor oluşturarak denediğim halde bazı yazıcılarda ekran görüntüsü ile yazılan değişkenlerin çiftlemesi gibi bi ilginç durum var sizce problem ne olabilir ?

Raporda Dizayn Kullanmak

dummy@example.com (Gürkan.Cil) — Fri, 03 Sep 2010 13:19:23 +0000

Arkadaşlar Öncelikle Merhabalar Problemim Şu Fox Pronun raporlarını bilmeyen birinin dizayn etmesi için bi bölüm yapmam lazım ama sayfa ayarının elle verilmesi alanların gösterilmesi gibi durumları çözemedim önerisi olanlar varsa yardımları için şimdiden teşekkür ederim

FoxyPreviewer

dummy@example.com (soykanozcelik) — Fri, 23 Jul 2010 15:44:10 +0000

Arkadaslar Foxite.com u takip edenler gormus olmalilar FoxyPreviewer isimli Cesar Chalom a ait bir class,
yaptigi su VFP9 (SP2 tavsiye ediliyor SP1 uyumlu ayni zamanda) un Report engine ni kullanarak FRX raporlarinizi EMF, PNG, JPG, BMP, GIF, TIFF olarak kaydedebiliyorsunuz (e-mail desteği yakında eklenecek).

one cikan yanlari
- caption,tooltip ler istenilden dilde calisiyor (English,German,Portugese,Espanol,Turkce su an ki diller)
- FRX raporlarinizi EMF, PNG, JPG, BMP, GIF, TIFF olarak kaydedebiliyorsunuz (e-mail desteği yakında eklenecek).
- varsayilan yazici aktif olarak geliyor
- toolbarda kopya sayısı belirleyebilme
- birden cok sayfa varsa minyaturleri gorup istenilen sayfayi secebilme ve ona gitme
- arama , istenilen sayfaya gitme
- class la beraber gelen INSTALLFOXCODE.PRG ile design time icin intellisense destegi eklenebiliyor
- tum raporlar icin _ReportPreview olarak bu class i set edebilme

Visual Fox Pro

1 2	_ReportPreview = "FoxyPreviewer.prg" REPORT FORM _Samples + "Solution\Reports\Colors.frx" PREVIEW

- #define ile istenilen dil ile calisabilme

Visual Fox Pro

&& #DEFINE PR_ENGLISH

       &&#DEFINE PR_PORTUGUES

       &&#DEFINE PR_GERMAN

       #DEFINE PR_TURKISH

       &&#DEFINE PR_ESPANIOL

4 satırda bu class i kullanabilirsiniz.

Visual Fox Pro

LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.prg"

loReport = CREATEOBJECT("PreviewHelper")

loReport.AddReport(_Samples + "\Solution\Reports\colors.frx", "RANGE 1,1 NODIALOG") && FRX File, Clauses

loReport.RunReport()

incelemeniz icin URL
http://weblogs.foxite.com/vfpimaging/ar … entmessage

download adresi : http://weblogs.foxite.com/files/vfpimag … viewer.zip

destek ve oneriler icin What do you think? bolumune notunuzu birakabilirsiniz...

Pdf Printer

dummy@example.com (ugurlu2001) — Fri, 16 Jul 2010 13:59:29 +0000

Öncelikle Merhabalar Bu Pdf Printeri bilgisayar kurmadan dosyalarımız pdf ye çevirme imkanı var mıdır acaba?
veya bunu kodla kurdurabilirmiyiz yazıcı ekleme gibi?