Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wydruk??
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Wydruk??

Witam jak zrobić aby z jakiejs tam form1 utworzyc sobie wydruk takie cos jak DataRaport, albo żeby przerzuciło mi tekst np do worda i wtedy wydrukowac??


_____________________________________________
May the Force be with you...

15-07-2004 16:05
Pokaż profil Dagged  Wyślij email do Dagged        1728948
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Jeżeli wiem, o co Ci chodzi to wystarczy form1.printform


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

15-07-2004 20:45
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Niebardzo

Bo chciałbym zeby to wyglądało inaczej niz na formie i miało postac raportu.


_____________________________________________
May the Force be with you...

16-07-2004 09:47
Pokaż profil Dagged  Wyślij email do Dagged        1728948
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

"...postać raportu" - to mi nic nie mówi. Jakiego raportu? Ale do większości raportów jest dobry richtextbox. Wstaw commondialoga i richtextboxa. W (np) commandzie wstaw:

    On Error Resume Next

    With dlgCommonDialog
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        If rtfText.SelLength = 0 Then
            .Flags = .Flags + cdlPDAllPages
        Else
            .Flags = .Flags + cdlPDSelection
        End If
        .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
            rtfText.SelPrint .hDC
        End If
    End With



_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

16-07-2004 14:36
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Wypróbuje ten sposób:)

thx


_____________________________________________
May the Force be with you...

16-07-2004 18:05
Pokaż profil Dagged  Wyślij email do Dagged        1728948
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1