TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Zdravím,
mám problém s tiskem ve VB 6 na WinXP Pro. Tisk funguje bez problému, až ať dělám co dělám, tiskárna vždy tiskne na defaultní tiskárnu.
Kód vypadá takto:
With Form1.CommonDialog1
.PrinterDefault = False
.Flags = cdlPDReturnIC
.DialogTitle = "Print"
.CancelError = True
.ShowPrinter
Dim p As Printer
For Each p In Printers
If p.hDC = Form1.CommonDialog1.hDC Then
Set Printer = p
End If
Next p
a dále pokračuje
Když jsem krokoval běh programu, tak jsem zjistil, že hDC které vrací CommonDialog nikdy neodpovídá hDC, které získám procházením tiskáren.
Tak kde je zrada?
