Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ilość dokumentów z CommonDialoga
interteh



Typ: neutral
Postów: 22
Zarejestrowany: Mar 2003
Ilość dokumentów z CommonDialoga

Mam takie coś. I jaką flagę by tu dopisć, aby drukować ilość dokumentów wpisaną przez usera.

With dlgCommonDialog
        .DialogTitle = "Drukuj"
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        If ActiveForm.rtftext.SelLength = 0 Then
            .Flags = .Flags + cdlPDAllPages
        Else
         
        End If
        .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
            ActiveForm.rtftext.SelPrint .hDC
       
        End If
    End With

11-11-2003 14:59
Pokaż profil interteh  Wyślij email do interteh   Odwiedź stronę interteh       3741353
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
do drukowania służy inne okno dialogowe

Wykorzystaj PrintDialog. Tam masz mozliwość wpisania ilości dokumentów.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

13-11-2003 11:24
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
interteh



Typ: neutral
Postów: 22
Zarejestrowany: Mar 2003

Zawsze drukowałem z CommonDialoga i tam mozna wpisac ilość dokumentów do wydruku.Obejrzałem dziesiątki sampli z internetu i też z tego drukują ale zawsze tylko 1 dokument, niestety.
A tak w zasadzie to gdzie mam szukać tego printdialoga?

13-11-2003 18:57
Pokaż profil interteh  Wyślij email do interteh   Odwiedź stronę interteh       3741353
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
uściślam: CommonDialog(PrintDialog)

tu:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmdlg98/html/vbctlcommondialogcontrolprintdialog.asp

A tu masz przykładowy kod z tej strony:

Private Sub Command1_Click()
  Dim BeginPage, EndPage, NumCopies, i
  ' ustaw Anuluj na True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Wyświetl okno dialogowe drukowania (Print dialog box)
  CommonDialog1.ShowPrinter
  ' pobierz wartości wprowadzone przez użytkownika
  BeginPage = CommonDialog1.FromPage
  EndPage = CommonDialog1.ToPage
  NumCopies = CommonDialog1.Copies
  For i = 1 To NumCopies
    ' Tu wstaw kod, do wysłania danych na drukarkę
  Next i
  Exit Sub
ErrHandler:
  ' Użytkownik nacisnął Anuluj
  Exit Sub
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

13-11-2003 19:09
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1