LISTAR FONTES DO WINDOWS
Olá pessoal,
Tentei pesquisar no site mas nao tive sucesso. O nome [ô]Fonte[ô] é muito genérico.
Quem pode me dar uma dica de como eu posso listar o nome das fontes instaladas no Windows.
Usando VB6 é claro.
Tentei pesquisar no site mas nao tive sucesso. O nome [ô]Fonte[ô] é muito genérico.
Quem pode me dar uma dica de como eu posso listar o nome das fontes instaladas no Windows.
Usando VB6 é claro.
cara, to sem o VB aqui, mas a gente [Ô]loopa[Ô] numa colection do objeto Printer e consegue.
veja se isso te ajuda
veja se isso te ajuda
dim f
for each f in Printer.Fonts
msgbox f.Name
next
Ola LLAIA,
o codigo acreditoq que seja bem simples assim, mas está ocorrendo um erro:
[Ô]Argument not Opcional[Ô].
o codigo acreditoq que seja bem simples assim, mas está ocorrendo um erro:
[Ô]Argument not Opcional[Ô].
Obrigado Barros pela dica,
Mas meu objetivo é que meu proprio programa faça esta verificação sozinho ou seja conhecer as fontes instaladas na maquina do cliente e alerta-los para alguma que está ausente e precisa ser instalada para que não ocorra erros na impressão
Mas meu objetivo é que meu proprio programa faça esta verificação sozinho ou seja conhecer as fontes instaladas na maquina do cliente e alerta-los para alguma que está ausente e precisa ser instalada para que não ocorra erros na impressão
Achei !!!
Um codigo bem simples do Macoratti:
Private Sub Command1_Click()
Dim QtdeFontes As Integer
For QtdeFontes = 0 To Printer.FontCount - 1
ListFontes.AddItem Printer.Fonts(QtdeFontes)
Next
MsgBox QtdeFontes & [Ô] FONTES LISTADAS[Ô]
End Sub
Um codigo bem simples do Macoratti:
Private Sub Command1_Click()
Dim QtdeFontes As Integer
For QtdeFontes = 0 To Printer.FontCount - 1
ListFontes.AddItem Printer.Fonts(QtdeFontes)
Next
MsgBox QtdeFontes & [Ô] FONTES LISTADAS[Ô]
End Sub
ah! não ia lembrar mesmo.
Tópico encerrado , respostas não são mais permitidas